Sortieren per VBA mit ColorIndex?

per VBA möchte ich die Spalten im Bereich A2:J650 sortieren lassen. Funktioniert auch, nur daß er die ColorIndex-Werte in Spalte F nicht als Zahlen liest, sondern stattdessen die "darunterliegende" Formel in die entsprechenden Zellen (F2:F650) einträgt. Gerade auf diese Zahlen kommt es jedoch an. Obwohl vermutlich recht einfach zu lösen, ist mit gestern dazu nichts eingefallen. Über Hilfe wäre ich sehr dankbar!!! Hier der Code:

Sub SortByID()
With Range("A2:J650")
.Sort , _
Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End With
End Sub

Gruß, M.