Vraag draaitabel via macro

[rjw142]

Ik heb via de opname functie een macro gemaakt voor een draaitabel.
Nu wil ik echter hetzelfde draaitabelveld in de rijlabels en in de waarden hebben.

De macro zet het veld "Materiaal bedrag" in de Rijlabels (RowField), maar in plaats van dat hij hetzelfde veld ook in de Waarden zet, haalt hij 'm weer weg uit de Rijlabels.
Iemand een idee hoe ik het moet beschrijven dat het veld "Materiaal bedrag" op beide plaatsten krijg?

Zo ziet de macro er nu uit:
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Projectnummer")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Tarief Code")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Materiaal Bedrag")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Draaitabel1").AddDataField ActiveSheet.PivotTables( _
"Draaitabel1").PivotFields("Materiaal Bedrag"), "Aantal van Materiaal Bedrag", _
xlCount