Выбрать из таблицы всех менеджеров - VB

Sub cmdCount_Щелкнуть()
Dim mc As Long                                                       'менеджеры
Dim i As Long                                                       'index как всегда
Dim c As String                                                      'cell value
mc = 0
For i = 2 To 65535
c = Cells(i, 2).Value                                                'идет поиск по столбцу B
If c = "" Then GoTo r
If c = "Менеджер" Then
    mc = mc + 1
End If
Next i
r: MsgBox "Количество менеджеров" & Chr(13) & "перечисленных а этой таблице: " & Trim(Str(mc)) & Chr(13) & "© XoFfiCEr", vbInformation, "Менеджеры"
End Sub