Sort new column on pivot refresh

[kc.crow]

Hello,

I have a pivot table that is currently sorting by one of 20 positions codes.

Examples
CEO
SVP
EVP
VP
L12
L11

The data source will normally not contain all 20 possible codes. The position is the column header in the pivot and it is currently set up to display in the order above. However, if a new row is added to the dataset with a position that was not on the existing dataset (say, DIR) or an existing row's position is changed, the "new" position is slotted at the far right of the pivot table. So the column order would be

CEO
SVP
EVP
VP
L12
L11
DIR

even though I would want it to be
CEO
SVP
EVP
VP
DIR
L12
L11

I couldn't find a way via VBA to refresh the column sort. Any ideas?

Thanks in advance.