Good morning, I am very new to VBA and to this forum. I have searched but was not able to locate what I am after, so I will try to post for an answer.

THe following formula is working to insert a blank row after a group change in my workbook, but I wish to enhance this by having the formula color fill that blank row as well.

What do I need to add to this macro to accomplish this task?

Thank you, Jim

Sub AddBlankRows()
'
Dim iRow As Integer
Range("a1").Select
'
iRow = 1
'
Do
'
If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then
Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown
iRow = iRow + 2
Else
iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, 1).Text = ""
'
End Sub