如何透视值的总和

Sub CreatePivotTable()
    Dim pt As PivotTable
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDest = ThisWorkbook.Sheets("Sheet2")
    
    ' 创建透视表
    Set pt = wsDest.PivotTableWizard(SourceType:=xlDatabase, _
                                    SourceData:=wsSource.Range("A1:D100"), _
                                    TableDestination:=wsDest.Range("A3"), _
                                    TableName:="PivotTable1")
    
    ' 设置透视表的行、列和值
    With pt
        .PivotFields("Category").Orientation = xlRowField
        .PivotFields("Category").Position = 1
        .PivotFields("Sales").Orientation = xlDataField
        .PivotFields("Sales").Function = xlSum
        .PivotFields("Sales").Position = 1
    End With
End Sub