Bitte um Hilfe beim Leerzellen löschen

Sub leerezellenlöschen()
Dim Bereich As Range
Dim Cell As Range
Set Bereich = Range("A1:Z1")
Bereich.Select
Selection.SpecialCells(xlCellsTypeBlanks). _
Delete Shift:=xlToLeft
End Sub

oder

Sub leerezellenlöschen()
Range(ActiveSheet.UsedRange.Address).SpecialCells(xlCellTypeBlanks).Delete
End Sub

Dieser Code würde genau das richtige sein, wenn er funktionieren würde. Bitte um Hilfe - Danke