Новая расчетная колонка сводной таблицы - VBA

Формулировка задачи:

Создал макросом сводную таблицу. Далее оставил только отдельные показатели в сводной таблице. Подскажите пожалуйста, как макросом в сводной таблице добавить новую расчетную колонку, которая будет равняться сумме 2-х колонок сводной таблицы. Штатным способом расчетные колонки не создаются в сводных таблицах(кроме отклонения и разных рассчетов среднего и прочего сравнения; нужна расчетная колонка, которая суммирует 2 конкретные колонки), возможно через макросы можно это сделать? Пример в студии (желтым цветом на листе Лист1 (2) выделил желаемую расчетную колонку)

Решение задачи: «Новая расчетная колонка сводной таблицы»

textual
                            Листинг программы 
                        

                            Sub pr()
    Set pt = ActiveSheet.PivotTables("СводнаяТаблица1")
    With pt.PivotFields(" Наименование контрагента         ")
        For i = 1 To .PivotItems.Count
            k = pt.GetPivotData("Сумма, грн", " Наименование контрагента         ", .PivotItems(i))
            .PivotItems(i).Visible = IIf(k = 0, False, True)
        Next
    End With
End Sub
                        