Dynamically Positioning PivotItems in VBA

I created a pivot table in VBA that works fine, the columnfield is based on a work order type. "WO Type", I need to have the WO Types in a specific position 1 - x . I have the code written out for each different type but the code fails the first instant that one of the WO Types is not present. I thought about using an array and using Do While incrementally increasing the position # for each WO Type that is present but it throws itself into an endless loop. Hoping there is a way to do this, just don't know how.. Any help would be GREATLY appreciated!

Here is the code that I have so far. There is two different schools of thought here, I left both, the code doesn't work either way. Hoping someone has an easy fix!

Please Login or Register  to view this content.

Firstly ,you mistyped pvtitems

Please Login or Register  to view this content.

not sure your error trapping is working properly
try this code instead

Please Login or Register  to view this content.

Please Login or Register  to view this content.