VBA macro not running. Finding duplicates macro

Here is a formula that I cannot get working anymore. I used it 2 years ago and I don't remember how it works.

This formula has to detects duplicates from column A and has to mark same duplicates with specific number in the next column

Formula:

Please Login or Register  to view this content.

Problem is with the type of text in column A. This formula is working for alphabetic letter. I need it to work with number (phone numbers)

Workbook8.xlsx

Thanks. One question, I'm getting debug error 429

Screen Shot 2016-01-08 at 10.45.37.png