Selecionar linhas de uma planilha em outra pasta mediante critério

[EACalaça]

Não sou programador, mas preciso de um código em VBA que abra uma planilha em outra pasta e copie uma ou mais linhas que coincidam com determinada célula.

Tentei esse código, mas está dando erro de Qualificador inválido nesta linha: Set i = PlanProdutos.Range("A:A").Find(UserForm1.txtProcura.Text).

Alguém pode ajudar a terminar esse código?
     

[EACalaça]

29 minutos atrás, EACalaça disse:

Não sou programador, mas preciso de um código em VBA que abra uma planilha em outra pasta e copie uma ou mais linhas que coincidam com determinada célula.

Tentei esse código, mas está dando erro de Qualificador inválido nesta linha: Set i = PlanProdutos.Range("A:A").Find(UserForm1.txtProcura.Text).

Alguém pode ajudar a terminar esse código?

 

O código é

Option Explicit
Global Const PlanProdutos As String = "Matchs.xlsx"
Public Sub CopiarDados()

    On Error GoTo Sair
    If UserForm1.txtProcura.Text = Empty Then
        MsgBox "Informe o testo da busca!", vbExclamation, "Programe Aqui"
        Exit Sub
    End If
    
    Dim i As Range
    Dim PrimeiraLinha As Integer
    Dim LinDestino As Integer
    LinDestino = 2
    PlanDestino.Range("A2:J1000").ClearContents
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & PlanProdutos
    
    Set i = PlanProdutos.Range("A:A").Find(UserForm1.txtProcura.Text)
    PrimeiraLinha = i.Row
    Do
        PlanProdutos.Range("A" & i.Row & ":J" & i.Row).Copy PlanDestino.Range("A" & LinDestino)
        LinDestino = LinDestino + 1
        
        Set i = PlanProdutos.Range("A:A").FindNext(i)
    Loop While PrimeiraLinha < i.Row
    Exit Sub
Sair:
    MsgBox "Match não encontrado", vbExclamation, "Sem Match"
    
End Sub