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
Bookmarks