count the number of repeats

hey guys,
I'm looking to count how many times a certain string is repeated in a column and place the number in an adjacent cell to the first instance then delete the other instances. The really tricky part for me is that the string or thing I'm searching for will always be different so I cannot specify what to search for. I have tried to simplify the searching by sorting the column, this means I really only have to find the first and last instance of the repetition.

I've come up with some code that will run through the column and compare the cells based on their contents but I'm having issues trying to store the first and last instance of the string and then counting it.

Here's what I have so far, however if there is a shorter more efficient way to do this I'm all for it

Please Login or Register  to view this content.

Place your strings in column A
Leave Columns B and C Empty
Then Run this Macro

Please Login or Register  to view this content.