Здравствуйте ребята, мне нужен ваш помощь очень.
Я сделал так

B15 есть эта формула =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3,B2:B12) Подсчитывает количество ячеек
B16 есть формула =КолЦветТст(B2:B12,A16) Подсчитывает красные слова
но B16 сделал формула через VBA и там написал формула
Function КолЦветТст(диапазон As Range, критерий As Range) As Long
Application.Volatile True
Dim i As Range
For Each i In диапазон
If i.Font.ColorIndex = критерий.Font.ColorIndex Then
КолЦветТст = КолЦветТст + 1
End If
Next
End Function
(формула взял из другого сайта).

Я сейчас сделаю фильтрацию, и в фильтре выбираю B, D и Е,
В результате мы получим так:


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

Благодарю заранее