I wrote a sub in VBA that displays a set of colors. Now I want the set of colors to output in reverse. Red, Green, Blue, Purple, Yellow output would change to Yellow, Purple, Blue, Green, Red. Been trying to figure it out all morning, but can't seem to get it. 

With Range("B2")
    For color = 1 To 8
        Cells(2, color + 1).Interior.ColorIndex = color
        Cells(3, color + 1).Interior.ColorIndex = (color * 7)
This is the color output I am trying to show in reverse.