Error al extraer datos únicos en columna Excel Vba
A continuación pongo el código que utilizo en Vba para extraer los datos únicos en una columna, es decir, que no me muestre las repeticiones.
Private Sub CommandButton1_Click()
Sheets("Hoja1").Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
End SubY mi problema es que no logro averiguar por qué no filtra la primera fila.
Es decir, si el dato que está en la fila uno se repite en alguna ocasión a lo largo de la columna, en el resultado aparecerá dos veces. En la foto que adjunto se puede ver como sucede esto con el número "9".
Si embargo, si el dato de la fila uno no se repite, todo parece que está en su sitio, como se puede ver en el siguiente ejemplo...
¿Qué puedo estar haciendo mal...?
