这个记录的宏有什么问题？

Question

我刚刚开始学习VBA，我试图录制一个宏来查看Excel如何工作。我记录了一个简单的任务：

1. 我在表单中复制了范围A1：D1001
2. 我从中创建了一个数据透视表
3. 我添加了一个行字段和一个值

当我停止录制并尝试运行宏时，收到以下错误消息：

＆＃34;运行时错误5 - 无效的过程调用或参数＆＃34;

我不明白自从Excel编写这个宏以来它会如何发生。

以下是代码：

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1:D1001").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Moz Keyword Explorer 'diy beaut!L1C1:L1001C4", Version:= _
        xlPivotTableVersion14).CreatePivotTable TableDestination:="Feuil1!L3C1", _
        TableName:="Tableau croisé dynamique1", DefaultVersion:= _
        xlPivotTableVersion14
    Sheets("Feuil1").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Keyword" _
        )
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Max Volume"), _
        "NB sur Max Volume", xlCount
    ExecuteExcel4Macro _
        "PIVOT.FIELD.PROPERTIES(""Tableau croisé dynamique1"",""NB sur Max Volume"",,,2)"
End Sub