There are other ways, but you did ask for a loop method.
'------------------------------------------------------
Sub test()
Dim ToRow As Long
ToRow = 1
'- loop
While ActiveSheet.Cells(ToRow, 1).Value <> ""
'put your code here to do something
ToRow = ToRow + 1
Wend
'- you are now at the blank cell
MsgBox (ActiveSheet.Cells(ToRow, 1).Address)
End Sub
'-----------------------------------------------
Regards
BrianB
================================