Office 2010 kullanıyorsan kendi özelliği mevcut...
Veri --> Yinelenenleri kaldır butonu...
Makroya atamak suretiyle istediğin zaman çalıştırmayı seçebilirsin....
A sütununu seçtikten sonra yinelenenleri kaldırmaya yarar...
Sub yinelenenlerikaldır()
Columns("A:A").Select...