erstellen der pivottabelle klappt nicht

Sub Pivot_Neu()
Dim ptCache As PivotCache
Dim pt As PivotTable
On Error GoTo Errorhandler
Selection.AutoFilter Field:=13, Criteria1:="offen"
Set ptCache = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:="A:M" & _
ActiveSheet.UsedRange.Rows.Count)
Set pt = ptCache.CreatePivotTable _
(TableDestination:=" ", _
TableName:="MyPivotTable")
With pt
.PivotFields("MASSN_ID").Orientation = xlRowField
.PivotFields("BEA/BEF-Nr.").Orientation = xlRowField
.PivotFields("Summe von BEA/BEF-Nr.").Orientation = xlRowField
End With
Set ptCache = Nothing
Set pt = Nothing
Exit Sub
Errorhandler:
MsgBox ("Die Pivot Tabelle besteht bereits")
End Sub