Makro nur einmal ausführen von Zeile A2 bis...

Sub Sprung()
'Einmal ausführen Start in A2 bis letzte benutzte Zelle der Spalte A
Dim i As Object
For Each i In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
'Sprung zu nächste leere Zelle
ActiveCell.EntireColumn.Find("", ActiveCell, xlFormulas, xlWhole, xlByColumns, xlNext).Select
Selection.EntireRow.Delete
'Sprung zu nächste nichtleere Zelle
ActiveCell.EntireColumn.Find("*", ActiveCell, xlFormulas, xlWhole, xlByColumns, xlNext).Select
Next i
End Sub