Αυτόματη δημιουργία Sum by ColorFunction

Ευχαριστώ εκ των προτέρων για οποιαδήποτε βοήθεια σχετικά με αυτό μπορείτε να προσφέρετε.

Με τη βοήθεια αυτού του ιστότοπου έχω δημιουργήσει την παρακάτω λειτουργία.

Συνάρτηση ColorFunction (rColor ως εύρος, rRange ως εύρος, προαιρετικό SUM ως Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
Αν SUM = True Τότε
Για κάθε rCell In rRange
Αν rCell.Interior.ColorIndex = lCol Τότε
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Επόμενο rCell
Αλλού
Για κάθε rCell In rRange
Αν rCell.Interior.ColorIndex = lCol Τότε
vResult = 1 + vResult
End If
Επόμενο rCell
End If
ColorFunction = vResult
Τέλος Λειτουργία


Σε κάθε κελί-στόχο που θέλω ένα άθροισμα όλων των κελιών αυτής της σειράς που περιέχουν το χρώμα του καθορισμένου κελιού.
=colorfunction(AR4,H5:AP5,TRUE)

Πώς μπορώ να ενημερώσω τη στοχευόμενη πώληση όταν οποιοδήποτε άλλο κελί στη σειρά (H5:AP5) αλλάζει χρώμα;