Se você quiser manter a cor, pode automatizar usando duas cores diferentes, uma para um grupo e outra para o próximo grupo.
Você pode usar a macro um pouco para conseguir isso.
Sub SetCustomColors()
Dim color As OLE_COLOR
Dim color1 As OLE_COLOR
Dim color2 As OLE_COLOR
Dim currentRequisition As Integer
color1 = &HF0F0F0 ' RR GG BB
color2 = &HF0F000 ' RR GG BB
currentRequisition = -1
For r = 3 To 16
If currentRequisition <> ActiveSheet.Cells(r, 1).Value Then
currentRequisition = ActiveSheet.Cells(r, 1).Value
color = IIf(color = color1, color2, color1)
End If
ActiveSheet.Range(ActiveSheet.Cells(r, 1), ActiveSheet.Cells(r, 4)).Interior.color = color
Next
End Sub