Finding unique values and their count

How can I find the unique values in a column , remove the dups, and leave the count in the next column?

Example:

A
A
A
B
B
B
B
C
C

gives:
A 3
B 4
C 2


I only know the manual SUBTOTAL method then copy values to a new worksheet,... - real ugly.

Of course. I completely forgot about those. Too busy looking for VB script solution.
Can I run a pivot table from a macro?

Thanks