Insert row and fill with grey between groups

[abenitez77]

I have a button that when clicked, it starts formatting an excel file which I select. I have data in columns A thru L. The rows will vary for each file I get, which I get biweekly. In row A, I have a column called colors and the cell contains a string with the name of a color (ie see below). I want to insert a row between each color that changes and fill the cells with grey in columns B thru H. How can I do this?
Red
Red
Red
Green
Green
Green
Blue
Orange
Orange
Yellow
White

 

[BSALV]

     r = Range("a" & Rows.Count).End(xlUp).Row                  'number last row
     For i = r - 1 To 1 Step -1                                 'loop backwards
          'Debug.Print Cells(i, 1).Value & "    " & Cells(i + 1, 1).Value
          If Cells(i, 1).Value <> Cells(i + 1, 1).Value And WorksheetFunction.CountA(Cells(i, 1).Resize(2)) = 2 Then     '2 successive cells, non is empty and have different value
               Rows(i + 1).Insert                               'insert row inbetween
               Cells(i + 1, 2).Resize(, 7).Interior.Color = RGB(200, 200, 200)     'fill with grey cemms
          End If
     Next