Sub ЗаполнитьУФ()
    myUF ActiveSheet
End Sub

Sub myUF(sh As Worksheet)
    Dim rr As Range
    Dim arr As Variant
    Set rr = sh.UsedRange
    arr = rr
    rr.Interior.Pattern = xlNone
    Dim yy As Long
    For yy = 2 To UBound(arr, 1)
        If IsEmpty(arr(yy - 1, 3)) And (Not (IsEmpty(arr(yy, 3)))) Then
            rr.Cells(yy, 3).Interior.Color = RGB(0, 255, 0)
        End If
        Select Case arr(yy, 4)
        Case "Новый"
            rr.Cells(yy, 1).Resize(, 2).Interior.Color = RGB(0, 0, 255)
        End Select
    Next
    
End Sub