Gruss benji
Sub Bereich_letzteZellelöschen()
With ActiveCell.SpecialCells(xlLastCell)
Cells(.Row, .Column).Select
Selection.ClearContents
End With
End Sub
Sub t()
Range("IV1").End(xlToLeft).Delete Shift:=xlToLeft 'löscht die letzte gefüllte zelle in zeile1 und rückt nach links auf
'Range("IV1").End(xlToLeft).ClearContents 'löscht den inhalt
End Sub