Quick Question- VBA to swap Pivot Table Fields

[largeselection]

Quick question-

I'd like to put in some code to swap the first field item in the row label section. I can do this by specifying the specific field I want to remove, but how can I get rid of the current "first field" if I don't know what it is?

So I might have my Row Labels as:

Name
State
Region
Product

I'd like to remove "Name" and add "ID" instead at the first spot. So I could do this via:

Dim pt As PivotTable
pt.ManualUpdate = True
    ActiveSheet.PivotTables("Users").PivotFields("Name").Orientation = _
        xlHidden
    With ActiveSheet.PivotTables("Users").PivotFields("ID")
        .Orientation = xlRowField
        .Position = 1
    End With

But now say I want to do the reverse?
Basically, is it possible to do something like...

    ActiveSheet.PivotTables("Users").PivotFields(1).Orientation = _
        xlHidden

to remove the first row field?

 

[largeselection]

I could also alternatively be OK with removing ALL row fields and then just adding back the ones I didn't want to delete if that would make the process simpler.