occurence /count of a cell value in a column/range

Hi,

I need to find to the occurrence/count of a cell value in a column/range.

Like say column A has following values

A12
A12
A12
A12
A13
A13
A14
A14 and so on ..

I need to find the no. of times or count A12 is there in the column A.

I have tried using .count function in the range A but this instead gives the number of cells in complete range A


see the code iam trying

 Set k = Columns("A:A")
For i = 2 To usedRowsCount1
            reference = ActiveSheet.Cells(i, 1).Value
 For Each reference In k
                         
     x = ActiveSheet.reference.count
                             
                         
    Next

Next

here i want to get the count of A12 in x which is not happening

Please help

Thanks,
Ankur