=COUNTIF(A:A,LEFT(B2,6)&"*") 

Function VLOOKUPCOUPLE33(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _
                         RezultColumnNum As Integer, Separator_ As String)
'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - колонка, откуда берём результат
'Separator_ - разделитель

    Dim i As Long
    Set Table = Intersect(Table.Parent.UsedRange, Table)
    For i = 1 To UBound(Table.Value)
        If Table(i, SearchColumnNum) Like SearchValue Then
            If VLOOKUPCOUPLE33 <> "" Then
                VLOOKUPCOUPLE33 = VLOOKUPCOUPLE33 & Separator_ & Table(i, RezultColumnNum).Address
            Else
                VLOOKUPCOUPLE33 = Table(i, RezultColumnNum).Address
            End If
        End If
    Next i
    If VLOOKUPCOUPLE33 = 0 Then VLOOKUPCOUPLE33 = ""
End Function

=VLOOKUPCOUPLE33(A:A,1,LEFT(B2,$C$2) & "*",1,"|")