Hallo Forum,
bei Workbooks.open habe ich einen Laufzeitfehler 1004, wenn ich fortsezte wird das getan was ich bezwecken wollte.
Was mache ich verkehrt?

Sub AutoFilter()

'Autofilter setzen und lösen
Tabelle2.Range("M4").AutoFilter

'Filtern: Zahlenwert
Tabelle2.Range("M4").AutoFilter 13, ">0"

'Neues Tabellenblatte einfügen
Dim ws As Worksheet
Set ws = Worksheets.Add

'Gefilterte Daten kopieren
Tabelle2.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=ws.Range("A1")
Dim Zelle As String
Zelle = "a2"
ActiveSheet.Name = ActiveSheet.Range(Zelle).Text

'SpaltenbreiteAutomatischFestlegen
Columns("A:T").EntireColumn.AutoFit

'kopieren

Range("A3:M71").Select
Selection.Copy
Workbooks.Open "D:\OneDrive - edijen\edijen - share\01 Projekte\_Projekt Musterordner\Test\Kunde_Kalkulation_test.xlsm"
ActiveSheet.Paste Destination:=Worksheets("Vorlage").Range("A29:M71")

End Sub