hatt gerade im Forum gestöbert, leider nicht das Richtige
gefunden.
Ich möchte die 1. Leerzelle in der Spalte A selektieren und von da aus alle
Zeilen bis Ende (65000) löschen.
mfg Kurt
Sub aaa()
Dim lRow As Long
lRow = IIf(Cells(2, 1) = "", 2, Cells(1, 1).End(xlDown).Row + 1)
Range(Cells(lRow, 1), Cells(Rows.Count, 1)).EntireRow.Delete
End Sub