Tæl farver på subtotaler

Hej alle,

jeg har et regneark hvor jeg har brug for at udregne løbende totaler, baseret på ændringer i et autofilter.

Normalt er dette let og elegant ved brug af SUBTOTAL,
men jeg er i den situation hvor jeg tæller farver,
og der er ikke nogen indbygget funktion indbygget i Excel til dette.

Jeg har nedenstående kode, der delvist gør hvad jeg skal bruge, dog virker den ikke med autofilter, eftersom den indtastede Range ikke opdaterer løbende.

Function CountColor(rColor As Range, rCountRange As Range)

Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex

For Each rCell In rCountRange
  If rCell.Interior.ColorIndex = iCol Then
      vResult = vResult + 1
  End If
Next rCell

CountColor = vResult
End Function


Nogen der har en ide til at ændre ovenstående til at virke med SUBTOTAL?