Помогите пожалуйста, как из сводной таблицы при помощи макроса взять данные, чтобы не было привязки к ячейкам.

Благодарю(я пробовала копированием полей сводной таблицы=>получается больше наворотов).
Помогите решить такую проблему:

Благодарю(я пробовала копированием полей сводной таблицы=>получается больше наворотов).
Помогите решить такую проблему:имеем сводную таблицу

признак : данные : АТП | наим атп1 | наим атп2 и т.д
-------------------------------------------------------------------------------
2 кол-во 2 3
сумма тариф 10,0 50,00
багаж 0 2
сумма багаж 0 10,00
-------------------------------------------------------------------------------
3 кол-во 0 3
сумма тариф 0 50,00
багаж 0 2
сумма багаж 0 10,00
-------------------------------------------------------------------------------
4 кол-во 2 3
сумма тариф 10,00 50,00
багаж 0 2
сумма багаж 0 10,00
-------------------------------------------------------------------------------
итог ************


Как из этой сводной таблицы по признаку, например 2, выбрать все значения из поля данных "сумма тариф" при помощи макроса? Наверное при помощи PivotTables.DataFields? Но как не знаю... помогите пожалуйста.

Из полей "АТП" выбираю данные так:
Worksheets("Лист3").Activate
With Worksheets("Лист2").PivotTables("Итог")

r = 3
c = 4
For i = 1 To .PivotFields("АТП").PivotItems.Count
If .PivotFields("АТП").PivotItems(i).Name <> "(пусто)" Then
Cells(r, c) = .PivotFields("АТП").PivotItems(i).Name
c = c + 1

End If
Next
End With