Excel VBA宏创建PIVOT表

Question

我想创建一个VBA宏代码，以创建显示在下图中的数据透视表。

在报告过滤器中，我具有飞机类型，在列级别中，我具有面积和总和值，而我具有飞机类型计数。

创建此表后，我记录了一个宏，但是运行宏后，我无法创建显示在图像中的数据透视表。我是新来的，所以我找不到解决该问题的方法？

我的代码如下：

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1:B16").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet13!R1C1:R16C2", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Sheet14!R3C1", TableName:="PivotTable4", DefaultVersion _
        :=xlPivotTableVersion12
    Sheets("Sheet14").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable4").PivotFields("Aircraft Type")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable4").PivotFields("Area")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
        "PivotTable4").PivotFields("Aircraft Type"), "Count of Aircraft Type", xlCount
End Sub