Sollen in einem Tabellenblatt alle Leerzeilen gelöscht werden, und eine Sortierung kommt nicht in Frage.

 

Code für ein allgemeines Modul:

 

Public Sub Leerzeilen_loeschen()

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub