Handling Non-Unique Cell Values

I have attached a sample spreadsheet. I'm looking for a macro that will take column one which contains Company names which are sometimes duplicated and append an incremental number based on the number of occurrences to the end of the company forcing it to be unique. Column 2 has the example of the results I would like to see. Has anyone got a macro that I could use that would allow me to select the company column, run the macro, and it update the values in that column to append the incremental number?

I put this formula in b1 and copied down the column (This works as long as column A is sorted alphabetically to group common names together)

Please Login or Register  to view this content.