Sorting on cell color of pivot table

[logandiana]

I used VBA to create a pivot table, then used VBA to write a conditional formatting so that some of the cells in the first column of the pivot table turn red. Now I need to figure out how to sort the pivot table so that all my red cells are listed first, then sort the pivot table based on the data in one of the value field columns.