Spalte löschen

Sub SpalteAloeschen()
Columns("A:A").Select
Selection.ClearContents
Range("A1").Select
End Sub