求助 create pivot table with VBA

TLI5

我新学VBA 想用它做出数据透视表 但是不知道哪里错了 网上的资料并没看太懂 以下是我的进度和程序 希望大家帮忙
数据源是Sheet1, 里面包含五列数据 分别是 Region District Store Category Sales Year
首先我把Sheet1里的东西转移到了Sheet2 用来做数据分析表 然后写下了以下语句 不知有什么错误 多谢了
本人很菜 弄了一晚上卡在这里了 再有一天多交作业 做不出来就百忙了

    Dim pivCache As pivotCache
    Dim pivTable As pivotTable
    Dim wksSheet As Worksheet
   
    pivCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, ActiveSheet.UsedRange)
    pivTable = pivCache.CreatePivotTable(ActiveSheet.[A1], "Pivot Table", True)
   
    With ActiveSheet.PivotTables("Pivot Table")
        .SmallGrid = False
        .pivotCache.RefreshPeriod = 0
        With .PivotFields("Region")
            .Orientation = xlRowField
            .Position = 1
        End With
        With .PivotFields("Category")
            .Orientation = xlRowField
            .Position = 1
        End With
        With .PivotFields("Year")
            .Orientation = xlColumnField
            .Position = 1
        End With
        With .PivotDataFields("Sales")
            .Position = 1
        End With
    End With