Create a loop with VBA

Hi I have the code below where I send the value in column H2 to a sql database.
I would like to do a loop where the values of all cells in the column H (i.e. H2 to HXX) are sent to the sql database.
Could someone help to adjust my code with the proper loop? Thank you!

Please Login or Register  to view this content.

Below is the content of cells in column H.

INSERT INTO VFA_UPPF..SOC VALUES ('EXY561', 'Audi A1')
INSERT INTO VFA_UPPF..SOC VALUES ('EXZ281', 'Audi A1')
INSERT INTO VFA_UPPF..SOC VALUES ('MBY644', 'Audi A1')
INSERT INTO VFA_UPPF..SOC VALUES ('EZC841', 'Audi A3')
INSERT INTO VFA_UPPF..SOC VALUES ('NHS412', 'Audi A3')
INSERT INTO VFA_UPPF..SOC VALUES ('NHX117', 'Audi A3')
INSERT INTO VFA_UPPF..SOC VALUES ('MPY952', 'Audi A3')
INSERT INTO VFA_UPPF..SOC VALUES ('UBZ245', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('EWZ584', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('TDP068', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('NTY330', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('BXX579', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('JXU072', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('GNL900', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('DHS359', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('WMJ173', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('MDN757', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('KER025', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('COL355', 'Audi A4')
INSERT INTO VFA_UPPF..SOC VALUES ('NXG937', 'Audi A5')
INSERT INTO VFA_UPPF..SOC VALUES ('MWE239', 'Audi A5')
INSERT INTO VFA_UPPF..SOC VALUES ('OYE642', 'Audi A5')
INSERT INTO VFA_UPPF..SOC VALUES ('COM773', 'Audi A5')
INSERT INTO VFA_UPPF..SOC VALUES ('LAB727', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('EUZ276', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('EUZ256', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('HCL961', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('PTB333', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('EUS923', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('MBO818', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('MBN266', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('NHZ262', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('EWB642', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('EUW531', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('DPC365', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('NHZ259', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('EUU355', 'Audi A6')
INSERT INTO VFA_UPPF..SOC VALUES ('EXG307', 'Audi Q3')
INSERT INTO VFA_UPPF..SOC VALUES ('TDU305', 'Audi Q3')
INSERT INTO VFA_UPPF..SOC VALUES ('CGS339', 'Audi Q5')
INSERT INTO VFA_UPPF..SOC VALUES ('EXF396', 'Audi Q5')
INSERT INTO VFA_UPPF..SOC VALUES ('KFB913', 'Audi Q5')

Isn't it possible to do a loop that takes Cells(8,X) as long as X is populated.

Worked perfectly again. I know you suggested the Openrowset solution for me. Although i don't really understand how to do it.

Filename: Missing_vehicles_links_test.xlsm
Sheetname: Nyabilar
TableName: Table_Query_from_vfa_uppf

Do you mind helping me out with this thread, i have not recieved an answer from anyone yet: http://www.excelforum.com/excel-prog...html?p=3354529

Hi Norie,

I tried the code you sent me, although i could not really figure it out. The performance with the first solution was not too bad though, so i'll stick with it.

Many Thanks!