如何创建动态透视表宏？

Sub CreatePivotTableMacro()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pc As PivotCache
    
    ' 设置数据源范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    Set rng = ws.Range("A1:D10") ' 将"A1:D10"替换为实际的数据范围
    
    ' 创建新的透视表缓存
    Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, rng)
    
    ' 在新的工作表中创建透视表
    Set pt = pc.CreatePivotTable(TableDestination:=ws.Cells(1, 5), TableName:="PivotTable1") ' 将"ws.Cells(1, 5)"替换为透视表的起始位置
    
    ' 设置透视表的字段
    With pt
        .PivotFields("Category").Orientation = xlRowField ' 将"Category"替换为实际的字段名称
        .PivotFields("Sales").Orientation = xlDataField ' 将"Sales"替换为实际的字段名称
    End With
End Sub