Tabellenblatt inkl. Makro in andere Datei kopieren

Hallo zusammen,
ich möchte ein Makro schreiben, was ein Tabellenblatt einer Datei in eine andere Datei mit den zugehörigen Buttons und entsprechenden Makros kopiert.

Option Explicit
Sub Tabellekopieren()
Application.DisplayAlerts = False
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim fileename As String
Dim wsQuelleWS As Workbook
Dim wsZielWS As Workbook
fileename = "C:\filepath"
'Zielblatt = aktive Datei, aktives Blatt
'Set wsZiel = ActiveWorkbook.ActiveSheet
Set wsQuelle = ActiveWorkbook.Worksheets("Tabellenblatt")
'Quellblatt = Datei, Blatt 1
Set wsZiel = Workbooks.Open(filename:=fileename).Worksheets(1)
'Kopieren
wsQuelle.Copy After:=wsZiel
'Quelle schließen
wsQuelle.Parent.Close SaveChanges:=False
Set wsQuelle = Nothing
Set wsZiel = Nothing
Application.DisplayAlerts = True
End Sub