PROBLEMAS EN EXTRAER DATOS UNICOS DE OTRO LIBRO

[darkstars9976]

BUENAS TARDESA TODOSY OJALA ME PUEDAN AYUDAR, TENGO ESTA MACRO QUE ME LA FACILITARON OJO NO ES DE MI AUTORIA MUCHO NIVEL PARA PODER HACERLO YO:

Sub Copia_recetas()
    Dim Rng$, x#
    Dim rept        As Range
    Dim celda
    With Sheets("BD_Recetas")
       Rng = .Range("D1")
       Range("C9:C48").ClearContents
       x = 9
       For Each celda In Sheets("Proy.-Comer").Range(Rng)
       If celda <> "" Then
                Set rept = .Range("C9:C48").Find(celda, , , xlWhole)
                If rept Is Nothing Then _
                   .Cells(x, "C") = celda: x = x + 1
                End If
        Next
    End With
    Sheets("BD_Recetas").Range("C9:C48").Select
    Selection.AutoFilter
    Sheets("BD_Recetas").Range("C9:C48").Sort Key1:=Range("C9:C48"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Sheets("BD_Recetas").Range("C9:C48").Select
    Selection.AutoFilter
    Range("F1").Select
End Sub

 

Y ES QUE QUIERO EXTRAER DATOS UNICOS DE UN RANGO QUE SE ENCUENTRA EN OTRO LIBRO ("01 PCP COMERCIAL") Y DE LA HOJA ("Proy.-Comer") 

EL ERROR QUE ME SALTA EN LA LINEA DE ROJO ES "ERROR 9 EN TIEMPO DE EJECUCIÓN" SUBINDICE FUERA DEL INTERVALO.

[bigpetroman]

amigo @darkstars9976de verdad que es complicado ayudarte asi, y si dices que tu nivel no te ayuda, pues mas aún.

si quieres recibir ayuda, sube una muestra de ambos archivos y explicando que es lo que deseas hacer,  para ver si te ayudamos, suerte