Tente esta macro, acredito que é isso que deseja.
Selecione a coluna (com os dados), desejada e o resultado aparecerá nas duas colunas a direita.

Private Sub Proc_Repeticoes()
' a rotina abaixo verifica e conta no intervalo, quantas vezes a string se repete
    Dim SerialString As String, i As Long, j As Long, K As Long
    Dim arr, r, a, v, aC, x
    SerialString = ""
    For Each r In Selection
        SerialString = Trim(SerialString) & " " & Trim(r.Value)
    Next r
    SerialString = Trim(SerialString)
    arr = Split(SerialString, " ")
    Dim cl As Collection
    Set cl = New Collection
    For Each a In arr
        On Error Resume Next
        cl.Add a, CStr(a)
    Next a
    x = 3
    For i = 1 To cl.count
        v = cl(i)
        With Selection
            aC = .Column
            Cells(x, aC + 1).Value = v
            j = 0
            For Each a In arr
                If a = v Then j = j + 1
            Next a
            Cells(x, aC + 2) = j
        End With
        x = x + 1
    Next i
End Sub