Добавление в сводной таблице колонки, которая равняется сумме всех колонок минус предпоследняя колонка

Sub Add_колонка()
    Dim PTcache As PivotCache
    Dim PT As PivotTable
    Dim s$, first As Boolean
        'Удаление листа сводной таблицы (при его наличии)
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Сводная таблица").Delete
    On Error GoTo 0
    Set WS1 = Sheets(1)
        ' Создание кеша сводной таблицы
    Set PTcache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=Range("A:G").CurrentRegion.Address)
        ' Добавление нового рабочего листа
    Worksheets.Add
    ActiveSheet.Name = "Сводная таблица"
    ActiveWindow.DisplayGridlines = False
    'Sheets("Сводная таблица").Activate
        ' Создание сводной таблицы на основе данных кеша
    Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTcache, _
    TableDestination:=Range("A13"), _
    TableName:="BudgetPivotToDay")
    With PT
        ' Добавление полей
        .PivotFields("Код валюты").Orientation = xlColumnField
        .PivotFields("Балансовый счет").Orientation = xlRowField
        .PivotFields("Эквивалент").Orientation = xlDataField
        .DisplayFieldCaptions = False
        .RowGrand = True
        .ColumnGrand = True
    End With
    On Error Resume Next
        'создание формулы для поля Валюты
    s = "= "
    first = True
    With ActiveSheet.PivotTables("BudgetPivotToDay").PivotFields("Код валюты")
        For Each x In .DataRange.Formula
            s = s & IIf(first, "", IIf(x = "980", "-", "+")) & "'" & x & "'"
            first = False
        Next
        .CalculatedItems.Add "Валюта", s
    End With
    ActiveSheet.PivotTables("BudgetPivotToDay").PivotCache.Refresh
    Calculate
End Sub