i want to get the frequency of a data in a column using vba

Question

i tried using dictionary but it only counts the repetition but i want to know the exact frequency of all datas in a column
what ive used is

Sub countThi