Filtro Avanzado Registros UNICOS

Hola a todos.
Conseguí una macro, para extraer datos Unicos de una Base de datos.
Sin embargo quisiera que el resultado, no sólo sea la columna que le
indico que necesite filtrar, sino que necesito me "pegue" toda la base de
datos resultante del filtro de registros Unicos.
Les adjunto la macro, de antemano gracias a
HMS

Sub ListaUnica()
Dim rListPaste As Range
Dim iReply As Integer

On Error Resume Next

Set rListPaste = Application.InputBox _
(Prompt:="Por favor selecciones la celda donde desea pegar los datos",
Type:=8)

If rListPaste Is Nothing Then
iReply = MsgBox("No hay Rangos seleccionados," _
& " terminado", vbYesNo + vbQuestion)
If iReply = vbYes Then Exit Sub
End If
'Especifico lugar en el que quiero que aparezca la Lista o BD Filtrada ej
Hoja1.Rango
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=rListPaste.Cells(1, 1), Unique:=True
End Sub