Sub u_91()
    Application.ScreenUpdating = False
    a = Range("c3").End(xlDown).Row
    b = Application.CountA(Range("b4:b" & a))
    d = 4
    For c = 1 To b
        e = Application.Match("*", Range("b" & d & ":b" & a), 0)
        d = d + e
        f = Application.Match("*", Range("b" & d & ":b" & a), 0)
        g = d - 1
        If c <> b Then
            h = d + f - 2
        Else
            h = a
        End If
        If g <> h Then
            i = Range("c" & g).Value
            j = Application.Sum(Range("c" & g + 1 & ":c" & h))
            If i <> j Then Range("c" & g + 1 & ":c" & h).Interior.Color = 65535
        End If
    Next
End Sub

            i = Application.Round(Range("c" & g).Value, 4)
            j = Application.Round(Application.Sum(Range("c" & g + 1 & ":c" & h)), 4)