Hallo und einen schönen Abend zusammen,

ich komme gerade nicht weiter. 

Ich kopieren aus einem Tabellenblatt verschieden Zellen in ein anders, welches nicht immer das selbe ist.

Das kopieren und einfügen klappt einwandfrei wenn es immer das gleiche Blatt ist.
 

z.B. Quelle Tabelle1, Ziel Tabelle 2. Nun möchte ich aber diese Kopierroutine auch aus anderen Blättern aufrufen, zur Quelle springen, kopieren und wieder zurück zum letzten aktiven Tabellenblatt und einfügen. Das klappt aber nicht 

So habe ich es versucht

Sub copypaste()
Dim Zeile As Long
Dim LastSheet As Integer
LastSheet = ActiveSheet.Index
Sheets("Tabelle1").Select
    Range("B4:D5").Select
    Selection.Copy
       ActiveCell.PasteSpecial
ThisWorkbook.Sheets(LastSheet).Activate
End Sub

Hat jemand eine Idee was ich falsch mache oder eventuell eine Lösung 

Gruß