If you are clicked on the column header of the member property you move it to be the first or last or 8th member property showing:
ActiveCell.PivotField.PropertyOrder = 8
ActiveCell.PivotField.PropertyOrder = 8