How to count different names in a vba column?

Question

Good people, I have a question in a work in vba in which, in a column, has four brands of cars:

And you’re supposed to put on cell C15 the brand you want to look for and on cell D15 you have to show the number of cars there are of that brand thank you

Answer 1

Good morning, can use the next function that counts the single values:

Public Function CountUnique(rng As Range) As Integer
        Dim dict As Dictionary
        Dim cell As Range
        Set dict = New Dictionary
        For Each cell In rng.Cells
             If Not dict.Exists(cell.Value) Then
                dict.Add cell.Value, 0
            End If
        Next
        CountUnique = dict.Count
    End Function