You can make use of this macro to get the color code:
For i = 1 To 12
Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color
- 'Replace 12 by the number of rows you want to use.
- 'Replacing the I in the column that you want to use for the result (color code).
- 'Replace the B by the column containing the color you want to filter.