Pivot Tabelle erstellen mit VBA

Sub PivotTabelle()
Dim ptTable As PivotTable
Dim ptCache As PivotCache
Selection.AutoFilter Field:=13, Criteria1:="offen"
Set ptCache = AchtiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:="A:M" & _
ActiveSheet.UsedRange.Rows.Coung)
Set ptTable = ptCache.CreatePivotTable _
(TableDestination:=AchtiveSheet.Range("P1"), _
TableName:="MyPivotTable")
With ptTable
.PivotFields("MASSN_ID").Orientation = xlRowField
.PivotFields("BEA/BEF-Nr.").Orientation = xlRowField
.PivotFields("Summe von BEA/BEF-Nr.").Orientation = xlCoumnField.Funtion = xlCount
End Sub