Are the values of interest in rows?

Maybe something like this:
Dim lLastRow As Long
For i = 0 To lLastRow - 1
....
Next i

Or this:
Dim myRow As Long
lastcell = Cells(Rows.Count, "A").End(xlUp).Row
myRow = 1
Do Until myRow = lastcell
For i = 1 To Cells(myRow, 1)
....
Next
lastcell = Cells(Rows.Count, "A").End(xlUp).Row
myRow = myRow + 1
Loop

HTH,
Ryan---