Extraer resultados no repetidos

Por ejemplo, para pegar los registros únicos de la columna A de Hoja1 en la columna DE de la misma hoja el código podría ser:
Sub prueba()
With Worksheets("Hoja1")
.[D:D].Delete
.Range("A1:A" & .[A1].End(xlDown).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.[D1], Unique:=True
End With
End Sub

Gracias por la respuesta
Lo he probado en Excel 2010 y va bien excepto por una cosa, Si el nombre que esta en la celda A1 esta repetido, en el "filtrado" lo repite no se si me explico. Mientras que los demás los filtra perfectamente. ¿Alguna sugerencia?
Muchas gracias

Excel "piensa" que la primera fila es de títulos, y, hasta donde yo sé, en el caso del filtro avanzado con copia de registros únicos no hay ninguna opción para "decirle" que no lo es.
La verdad es que a mí nunca me ha resultado inconveniente esta forma de trabajar, porque normalmente siempre le pongo títulos a las columnas, pero si a ti sí te molesta la solución pasa por comenzar la lista a filtrar en A2 en vez de en A1 y poner en A1 cualquier cosa. El código sería igual al de antes, con la única diferencia de una linea al final para borrar la celda D1:
Sub prueba()
With Worksheets("Hoja1")
.[D:D].Delete
.Range("A1:A" & .[A1].End(xlDown).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.[D1], Unique:=True
.[D1].Delete
End With
End Sub