Kopieren zwischen zwei Tabellen

Sub kopieren2()
Dim leerzeile As Long
kopierbereich = Range("Tabelle10!GB2:HI2").Address
leerzeile = Range("Tabelle11!A65536").End(xlUp).Row + 1
zielbereich = "Tabelle11!A" & leerzeile
Range(kopierbereich).Copy
Dim Msg As String
Msg = "Daten übernehmen?"
Dim Antwort As VbMsgBoxResult
Antwort = MsgBox(Msg, vbQuestion Or vbYesNo, "Abfrage")
If Antwort = vbNo Then Exit Sub
If Antwort = vbYes Then GoTo weiter
weiter:
Range(zielbereich).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub