Kopieren von Zeilen/Spalten

Private Sub CommandButton1_Click()
Dim Spalte1 As Long, Spalte2 As Long
Dim Zeile1 As Long, Zeile2 As Long
Dim ZeileLetzte As Long
ZeileLetzte = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Rows.Count, 2).End(xlUp).Row
For Zeile1 = 18 To ZeileLetzte
For Spalte1 = 3 To 6
For Zeile2 = 22 To ZeileLetzte + 4
For Spalte2 = 7 To 11
If CommandButton1.Value = "1" Then
Worksheets("Tabelle1").Cells(Zeile1, Spalte1) = Worksheets("Tabelle1").Cells(Zeile2,  _
Spalte2)
End If
Next
Next
Next
Next
End Sub