Nehmen wir einmal an, dass ihr leere Zellen in euerer Tabelle habt, diese aber nicht wünscht.

Wir möchten nun erreichen, dass alle "Einträge" nach links eingerückt werden. Dazu nutzen wir folgendes Makro:

Sub Leere_Zellen_loeschen()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
End Sub

Unsere Tabelle schaut nun so aus: