Extraer valores únicos de una columna

Necesito extraer valores únicos de una columna y pasarlos a otra columna de otra hoja excel, he encontrado en TODOEXPERTOS esta macro que funciona muy bien pero " no me funciona si tengo el libro compartido". ¿Alguna idea?. Gracias

Range("A1").Select
Do While Not IsEmpty(ActiveCell)
cantidad = Application.WorksheetFunction.CountIf(Columns("A:A"), ActiveCell)
If cantidad > 1 Then
ActiveCell.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Select
End If
Loop