Попробуите Format->Conditional Formating, если трудно будет разобратся тамже наидёте HELP. Дерзаите, УДАЧИ!

В данном форуме можно наити ответы на ваш вопрос, в Поиске наберите например "цвет" или наподобие этого. я нашел ответы как закрасить ячеику а вот как со строкой надо вам поискать.

Тогда только программно
================================
Sub fill_Y()
Range("A7:G7").Select
' Цвет фонта
Selection.Font.ColorIndex = 1
With Selection.Interior
' Цвет заливки (н.п. жёлтый)
.ColorIndex = 6
.Pattern = xlSolid
End With

End Sub

Sub fill_R()
Range("A8:G8").Select
Selection.Font.ColorIndex = 1
With Selection.Interior
' Цвет заливки (н.п. красный)
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub
===========================
Это только заготовки для заливки цвета, вам надо создать макрос где проверятся условия заливки и по вашим критериям вызивать нужную проседуру заливки.
В Range (x, y) - координаты начальной и конечной ячейк заливки