Macro para copiar valores distintos de una hoja de Excel a otra

Tengo un libro de Excel que tiene las siguientes hojas, "Principal" y "Cuenta": ahora la hoja "Principal" tiene la columna B con la lista de ID.

¿Es posible tener una macro en la página "Contar" para copiar todos los valores distintos en la columna A de la columna B en la Hoja principal?

Sé que la función de índice y el filtro avanzado funcionarán, pero específicamente necesito una macro simple.

Prueba esto:

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub