Move "(blank)" to end of filtered Pivot Range

[tlc_in_OK]

I have a macro that filters a pivot table, resorts, then copies data to another area for more calculations. I need to always move the "(blank)" elements of the first column of the pivot table ("A") to the bottom of the range once filtered. I know I can use:

ActiveSheet.PivotTables("PivotTable1").PivotFields("Offer_to_Target_Pct").PivotItems("(blank)").Position = ????

But for the ????, how do I set the variable range of a filtered Pivot field?

 

[DauntingGecko]

Private Sub example()

    Dim pvt As PivotTable
    
    Set pvt = ActiveSheet.PivotTables("PivotTable1")
    
    pvt.PivotFields("Offer_to_Target_Pct").PivotItems("(blank)").Position = _
        pvt.PivotFields("Offer_to_Target_Pct").PivotItems.Count

End Sub

 

[DauntingGecko]

Private Sub example()

    Dim pvt As PivotTable
    
    Set pvt = ActiveSheet.PivotTables("PivotTable1")
    
    pvt.PivotFields("Offer_to_Target_Pct").PivotItems("(blank)").Position = _
    pvt.PivotFields("Offer_to_Target_Pct").DataRange.Count

End Sub

 

[tlc_in_OK]

Perfect. . .thank you!!