Bin gespannt auf eure Antworten!
Keia
Sub LeereLoeschen()
Dim lngC As Long
Dim lngRow As Long
Application.ScreenUpdating = False
lngRow = ActiveSheet.UsedRange.Rows.Count
For lngC = lngRow To 1 Step -1
If WorksheetFunction.CountA(Rows(lngC)) = 0 Then Rows(lngC).Delete
Next
Application.ScreenUpdating = True
End Sub