VBA - Spalten löschen

Hallo,

ich bin ziemlicher VBA Anfänger und versuche mich gerade an einem Makro, welches den Inhalt aller Spalten untereinander auflistet und die dann überflüssigen Spalten löscht. Die Auflistung klappt, aber das löschen nicht, da gibt's einen Fehler 400. Was mache ich falsch?

Ich nutze in dem Fall VBA, weil die PQ Alternative die bestehenden Hyperlinks entfernt.

Danke
Christian

Sub auflisten()
  Dim i As Integer
  Application.ScreenUpdating = False
  loLetzte = .Cells(1, Columns.Count).End(xlToLeft).Column
  For i = 2 To loLetzte
    Cells(1, i).Resize(loLetzte).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Next i
  ActiveSheet.Columns("2:" & loLetzte).Delete
End Sub