录制宏所得数据透视表一直报错

[heyheyy]

想调出数据透视表，就录了一个宏，但运行时总弹出‘5’，无效的过程调用或参数”。十分困惑
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BMW!R1C1:R1048576C2", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="BMW!R1C7", TableName:="数据透视表1", DefaultVersion:= _
xlPivotTableVersion15
Sheets("BMW").Select
Cells(1, 7).Select
With ActiveSheet.PivotTables("数据透视表1").PivotFields("Summe")
.Orientation = xlRowField
.Position = 1
End With

[脆皮大雪糕]

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BMW!R1C1:R1048576C2", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="BMW!R1C7", TableName:="数据透视表1", DefaultVersion:= _
xlPivotTableVersion15

确认一下，你的原数据，行数是否有1048576 这么多。我怀疑有一堆空行。
还有，你选的数据范围只有C1和C2两列，但为啥后面会出现C7的参数。
仅从代码直观的地方提出两点疑再检查看看，没有实际操作验证，不一定是我说的这个两个地方的问题。