На этот вопрос уже есть ответ здесь:

У меня есть функция от MSDN, которая подсчитывает количество ячеек в диапазоне, которые имеют другой цвет ячеек.

Вот код

Function countCcolor(range_data As Range, criteria As Range) As Long
    Application.Volatile
    Application.ScreenUpdating = False
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        countCcolor = countCcolor + 1
    End If
Next datax
Application.ScreenUpdating = True
End Function

Для этой функции необходимо, чтобы она обновлялась при изменении значения цвета ячейки.

Моя идея состоит в том, чтобы создать событие, когда цвет ячейки будет изменен, и пересчитать любую ячейку с помощью функции, но я не уверен, что это лучший способ.