Print values and their occurence in a columns in vba

Question

Wrote a script for this produces an unsatisfying result.Can someone guide me on what approach should I use? I want something like this.

Column Occurrence
Valu