Sub AMDJede2Del()

   ActiveSheet.Range("A1:CX1").Select
   Selection.Copy
   Range("B1").Select
   ActiveSheet.Paste

Dim Spalte As Integer

   ActiveSheet.Unprotect

   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual

   For Spalte = 3 To ActiveSheet.UsedRange.Columns.Count Step 1

       Dim Temp As String

       Columns(Spalte).EntireColumn.Delete

   Next

   Application.ScreenUpdating = True
   Application.Calculation = xlCalculationAutomatic
End Sub