Extraer los diferentes valores de una columna.

Tengo una macro a medias, en la que ejecuto un filtro en una hoja de datos ("Hoja1")
y necesito llevarme a otra hoja ("Hoja2"), los diferentes valores
(que no todos, tan solo, todos los que sean diferentes) de una de las columnas de la hoja de datos.
Si tuviera en la hoja de datos "Hoja1", esta columna:
A
01_Verde
02_Azul
03_Verde
04_Verde
05_Verde
06_Rojo
07_Verde
08_Verde
09_Amarillo
10_Azul
11_Rojo
12_Verde

Que mandato o sentencia deberia de usar, para que me pudiera dar en la "Hoja2"
a partir de la celda "B3", estos DIFERENTES valores ???:
B
03_Verde
04_Azul
05_Rojo
06_Amarillo

hola, Juan Carlos !

la macro que solicitas es (practicamente) la misma que la propuesta anterior (solo que sin el rango de criterios)
pero si es neceario que la primer celda en ambas hojas tanga titulo (y el mismo) -> [A1] en hoja1 y [B3] en hoja2
luego prueba con la siguiente macro:

Sub Filtra_unicos()
With Worksheets("hoja1")
.Range("a:a").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Worksheets("hoja2").Range("b3"), _
Unique:=True
End With
End Sub

saludos,
hector.

__ la consulta original __
> Tengo una macro a medias, en la que ejecuto un filtro en una hoja de datos ("Hoja1")
> y necesito llevarme a otra hoja ("Hoja2"), los diferentes valores
> (que no todos, tan solo, todos los que sean diferentes) de una de las columnas de la hoja de datos.
> Si tuviera en la hoja de datos "Hoja1", esta columna:
> A
> 01_Verde
> 02_Azul
> 03_Verde
> 04_Verde
> 05_Verde
> 06_Rojo
> 07_Verde
> 08_Verde
> 09_Amarillo
> 10_Azul
> 11_Rojo
> 12_Verde
>
> Que mandato o sentencia deberia de usar, para que me pudiera dar en la "Hoja2"
> a partir de la celda "B3", estos DIFERENTES valores ???:
> B
> 03_Verde
> 04_Azul
> 05_Rojo
> 06_Amarillo

No tengo palabras ...
Recibe un fuerte abrazo desde Madrid.