Код VBA, который читает из определенных данных столбца

Question

Этот код VBA создает PT и диаграмму автоматически.

Я бы хотел, чтобы мой график читался из столбца «Общая сумма».По умолчанию и читает из первого столбца «Закрыто».

Вот мой код ниже:

Sub PT_C_RiskType_Status_test()
'
' PT_C_RiskType_Status_test Macro
'


    'Defining the variables

    Dim pc As PivotCache
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim sh As Shape
    Dim ch As Chart


    Set pc = ThisWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:="DataSource", _
    Version:=xlPivotTableVersion15)


    Set ws = Sheets.Add

    ws.Select
    Cells(3, 1).Select
    Range("A3:D9").Select


     'Create the pivot table

    Set pt = pc.CreatePivotTable(TableDestination:=ws.Name & "!R3C1", _
                                TableName:="Pivottable")


     'Adding the data fields

    pt.AddDataField _
        Field:=pt.PivotFields("Status"), _
        Function:=XlConsolidationFunction.xlCount

     'Adding the fields


        pt.AddFields _
        RowFields:="Risk Type", _
        ColumnFields:="Status"


    'Adding chart

    Set sh = ws.Shapes.AddChart2(XlChartType:=XlChartType.xlPie, _
                Width:=200, Height:=200)


    Set ch = sh.Chart

End Sub

Пожалуйста, сообщите.