Sub ЗакраситьАктивныйЛист()
    Dim rr As Range
    For Each rr In ActiveSheet.UsedRange.Rows
        CheckRow rr
    Next
End Sub

Sub CheckRow(rRows As Range)
    With rRows
        Dim arr As Variant
        arr = .Cells(1, [G1].Column).Resize(1, [V1].Column - [G1].Column + 1)
        Dim xx As Long
        Dim flagEmpty As Boolean
        For xx = 1 To UBound(arr, 2)
            If IsEmpty(arr(1, xx)) Then
                flagEmpty = True
                Exit For
            End If
        Next
        If Not flagEmpty Then
            Union(.Range("B1"), .Range("C1"), .Range("D1")).Interior.Color = RGB(200, 255, 200)
        End If
    End With
End Sub

If Not flagEmpty Then
    Union(.Range("B1"), .Range("C1"), .Range("D1")).Interior.Color = RGB(200, 255, 200)
else
    .Range("B1").Resize(,3).Interior.ColorIndex = xlNone
End If

  [b1:d1].Interior.Color = IIf(flagEmpty, xlNone, RGB(200, 255, 200))