Počítání Podmíněně formované buňky

Použil jsem pro vás velmi užitečný modul pro počítání počtu barevně vyplněných buněk, který funguje velmi dobře.
Chci však obarvit buňky podmíněným formátováním a modul VBA v takovém případě nefunguje.
Tabulka, na které pracuji, analyzuje měsíční útratu za komoditu. Buňka je propojena s jiným listem, aby se zobrazila hodnota měsíce.
Myslím, že můžete být schopni změnit modul VBA, ale nejsem příliš obeznámen s VBA.
Může někdo pomoci upravit skript tak, aby vyhovoval mým potřebám?
Zde je kód VBA:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

Dim rCell As Range

Dim lCol As Long

Dim vResult

lCol = rColor.Interior.ColorIndex

If SUM = True Then

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = WorksheetFunction.SUM(rCell, vResult)

End If

Next rCell

Else

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = 1 + vResult

End If

Next rCell

End If

ColorFunction = vResult

End Function