Custom sort by Color in VBA worksheet code

[Vachi]

The code below is doing almost everything I need it to do, but I can't figure out how to sort the column by color instead of alphabetically, and allow me to set which color is on top. I've been working this problem for several hours and would sure appreciate a hand!



Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("AD2:AD")) Is Nothing Then
Range("AD1").Sort Key1:=Range("AD2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub