Ориентация PivotFields не дублируется, только изменения

Question

Код, в котором сводная таблица добавит PivotField к строке (категориальная) и к странице (фильтр).

Код выполняет одно, а затем удаляет другое.

With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Mês")
    .Orientation = xlPageField
    .Position = 1
End With
With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Mês")
    .Orientation = xlRowField
    .Position = 2
End With

Я ожидаю, что эти два поля "Mês" останутся в позиции "Фильтр" и "Категоризация" моей сводной таблицы, но останется только последнее.