you cant to filter  by color  , excel not support in this.

you must create private function then use it for fillter

b2 = bcolor(a2) etc....

Function bColor(r As Range) As Integer
bColor = r.Interior.ColorIndex
End Function

See http://www.mvps.org/dmcritchie/excel/colors.htm for the Excel color
palette.

Green is .ColorIndex = 10

You also want to know what cell property to refer to, e.g.
ActiveCell.Interior.ColorIndex = 10.

And now you can write a custom sort routine in VBA.

I would add another column, and populate the value of cells  in that
column with 1 or 0, depending on whether the
If Range("A:" & Row).Interior.ColorIndex = 10 Then
Range ("F" & Row).Value = 1
Else
Range ("F" & Row).Value = 0
End If

And then do a normal sort.