Olá Ajuda1234,
Com os meus alunos eu comento que só vale a pena usar o VBA quando o que você precisa não tem ou é mais fácil com o VBA, no seu caso eu acredito que a função cont.ses é o ais indicado.
=cont.ses(Intervalo de procura;Critério), por Exemplo:
=cont.ses(A2:A1000;"Caloi")
Espero que ajude com a função cont.ses, mas segue abaixo o código da função para contar Marcas que pode ser usada no VBA ou no próprio Excel.
Public Function ContarMarcas(Intervalo As Range, Marca As String) As Double
Dim cel As Range
Dim qtd As Double
'Percorre cada célula do intervalo selecionado e retorna a quantidade encontrada
For Each cel In Intervalo
'Como no VBA ele diferencia maiúsculas de minúsculas desta forma eliminamos o problema com Lcase
If LCase(cel) = LCase(Marca) Then
qtd = qtd + 1
End If
Next cel
'Retorna o valor final
ContarMarcas = qtd
End Function
Sub usarFuncao()
Debug.Print ContarMarcas(Range("A1:A1000"), "Caloi")
End Sub

Espero que ajude e fico a disposição.
Márcio Diniz