Sub TagelleInNeueArbeitsmappeKopieren()
Dim Mappe As Workbook
Dim Tabelle As Worksheet
Set Tabelle = ThisWorkbook.Sheets("Tabelle2")
Set Mappe = Workbooks.Add
Tabelle.Copy Before:=Mappe.Worksheets(Worksheets.Count)
End Sub

Sub erwartet
Kann mir jemand helfen?