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”保持在数据透视表的“筛选器”和“分类”位置，但只有最后一个停留。