Werte einfügen/übertragen - VBA

Sub Einzeldaten1SP()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Dim ze As Long, sp As Long
sp = 7
For ze = 8 To 25
Select Case ze
Case 17, 19, 22
Case Else
Sheets("BBsp").Cells(ze, 2).Value = Sheets("Datensp").Cells(2, sp)
End Select
Next
With Application
.ScreenUpdating = True
.Calculation = xlAutomatic
End With
End Sub

in:
Sheets("Tabelle1").Range("B9:B12").Value = Sheets("Tabelle2").Range("G1:G4")
aber das geht nicht, weiß jemand warum?
Ich brauche unbedingt nur eine Zeile für die Übertragung eines Bereiches.
Vielen Dank
Gruß lobby