Excel 2010 VBA скрипт для получения сводной таблицы, отображающей несколько столбцов по горизонтали

Question

Новый для VBA сценариев сводных таблиц. Были исследования, но не удалось найти пример, который поможет нам понять, как получить Груз в столбце C с итогом внизу и Значение в столбце D с итогом внизу.

Код, который я имею, выглядит следующим образом

ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:=Array("CUSTOMER", _
    "INV_NUM")

With ActiveSheet.PivotTables("PivotTable2").PivotFields("FREIGHT")
    .Orientation = xlDataField
    .Function = xlSum
    .Position = 1
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("VALUE")
    .Orientation = xlDataField
    .Function = xlSum
    .Position = 2
End With

Спасибо