Loop till last row

Please use Code Tags for your code excerpts.

If you have a column that is fully populated, that is, it has an entry for every row ... or, at least, a guaranteed entry in the last row of data, for example, column A, you can use this:

Dim lLR As Long
lLR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lLR
'etc
Next 'i

Regards, TMS