Count then Delete Duplicate Values and put count next to now unique value

I'm not really sure how to approach this one. I'm guessing a loop... but maybe there is a builtin function?

What I'm trying to do is just go down A:A, which has 1000+ rows with data. I'm dealing with, basically a list, like the one below.

Col A
111
222
333
333
333
333
444
444
555

I want the list above to look like the one below. (I hope this makes sense)

Col A Col B
111 1
222 1
333 4
444 2
555 1

I am pretty sure I could use the following code after a loop. I'm just not sure how to approach the whole counting each time a new duplicate value is found.

Please Login or Register  to view this content.

run this macro:=

Please Login or Register  to view this content.

http://office.microsoft.com/en-gb/ex...001034626.aspx