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.