Alle leeren Zeilen in einer Tabelle löschen:

Sub LeereZeilenLöschen()
    Application.ScreenUpdating = False
    Tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
    For x = Tmp To 1 Step -1
        Do While Application.CountA(Rows(x)) = False
            Rows(x).EntireRow.Delete
        Loop
    Next x
End Sub