Sub DoSomething()
 
    Dim i As Integer
 
    'Ab der 2. Zeile beginnen, 1. Zeile = Überschriften (sofern zutreffend)
    i = 2
 
    With Worksheets(1)
        Do While Not IsEmpty(.Cells(i, 1))
            ' ...Code....
            i = i + 1
            DoEvents
        Loop
    End With
 
End Sub