Excel stürzt nach Makro ab

Sub AuswertungMakro()
ActiveSheet.Range("$A$3:$N$20000").AutoFilter Field:=5, Criteria1:=""
Set AUSWBereich = ActiveSheet.Range("B2:N20000").SpecialCells(xlCellTypeVisible)
AUSWBereich.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.DisplayAlerts = False
Sheets("Tabelle2").Delete
Sheets("Tabelle3").Delete
Sheets("Tabelle1").Name = "Test123_" & Format(DateAdd("m", -1, Date), "mmm") & "_" & Format( _
DateAdd("y", 0, Date), "yyyy")
ActiveSheet.Range("$A$1:$N$20000").AutoFilter
Cells.EntireColumn.AutoFit
ActiveSheet.Columns("I:I").ColumnWidth = 11.86
ActiveSheet.Columns("K:K").ColumnWidth = 54.71
ActiveSheet.Columns("L:L").ColumnWidth = 71.57
Cells.EntireRow.AutoFit
Cells.Validation.Delete
ActiveSheet.Range("$A$1:$N$20000").Interior.ColorIndex = xlNone
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ActiveSheet.Range("$A$ _
1:$M$20000"), Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="", TableName:="PivotAuswertung", DefaultVersion:=xlPivotTableVersion14
ActiveSheet.Name = "Auswertung_" & Format(DateAdd("m", -1, Date), "mmm") & "_" & Format( _
DateAdd("y", 0, Date), "yyyy")
With ActiveSheet.PivotTables("PivotAuswertung").PivotFields("Wert1")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotAuswertung").AddDataField ActiveSheet.PivotTables(" _
PivotAuswertung").PivotFields("Wert2"), "Anzahl", xlCount
With ActiveSheet.PivotTables("PivotAuswertung").PivotFields("Wert2")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotAuswertung")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
ActiveSheet.PivotTables("PivotAuswertung").DataBodyRange.HorizontalAlignment = xlCenter
ActiveSheet.PivotTables("PivotAuswertung").PivotFields("Wert1").DataRange. _
HorizontalAlignment = xlCenter
ActiveWorkbook.Charts.Add
dateipfad = "U:"
ActiveWorkbook.SaveAs dateipfad & "\" & "Test1234" & ".xlsx"
End Sub