=СУММПРОИЗВ(--($A$2:$A$9<>"");--(ЛЕВСИМВ($B$2$B$9;1)=СТРОКА()-1&""))

Function СЧЁТУНИКЕСЛИ(rng1 As Range, rng2 As Range, kr As Variant) As Double
'аргументы:
'rng1 - диапазон отбора уникальных значений, обязательный
'rng2 - диапазон условий, обязательный
'kr - условие (критерий), обязательный
СЧЁТУНИКЕСЛИ = 0
On Error Resume Next
    With New Collection
        For Each cl In rng1
            If Cells(cl.Row, rng2.Column) Like kr Then
                .Add cl, CStr(cl)
                If Err = 0 Then
                    СЧЁТУНИКЕСЛИ = СЧЁТУНИКЕСЛИ + 1
                Else
                    Err.Clear
                End If
            End If
        Next
    End With
End Function