Estou tentando fazer o procv de uma planilha para outra, porém, esta dando erro, podem me ajudar?

Segue o código até o momento:

Private Sub planilha_Click()

'relatorio

Dim caminho As Variant
Dim este As Workbook, outro As Workbook

Application.DisplayAlerts = False

caminho = Application.GetOpenFilename

If caminho = False Then Exit Sub

Workbooks.Open caminho, , True
Set este = ThisWorkbook
Set outro = ActiveWorkbook

outro.Sheets(1).Range("a1:n15").Copy
este.Sheets(1).Range("a1:n15").PasteSpecial


Range("d13:n13") = "Checklist de efetivo de 20/11/2023"
Range("d14:n14") = txtavaliador
Range("d15:n15") = Date

'prestador

Dim prest As Variant
Dim cprest As Variant
Dim contr As Variant
Dim ult As Variant
Dim codproc As Variant
Dim resultproc As Variant
Dim inicio As Integer
Dim teste As Variant

cprest = (ThisWorkbook.Path & "\apoio\checklist.xlsx")
If cprest = False Then Exit Sub
Workbooks.Open cprest, , True
Set este = ThisWorkbook
Set prest = ActiveWorkbook
este.Sheets(2).Range("C11:x9990").ClearContents
contr = este.Sheets(1).Range("l9")
Range("a1").AutoFilter field:=1, Criteria1:=contr
Range("A2:P999").SpecialCells(xlCellTypeVisible).Copy
este.Sheets(2).Range("C11").PasteSpecial Paste:=xlPasteValues
ult = este.Sheets(2).Range("C11").End(xlToRight).Column
ult = ult + 12

For inicio = 11 To ult
codproc = este.Sheets(2).Cells(inicio, 6)
resultproc = Application.VLookup(codproc, outro.Sheets(2).Range("F11:P1000"), 14, 0)
este.Sheets(2).Cells(inicio, 19) = resultproc
Next inicio

prest.Close False


End Sub

 __________________________________________________________________________________________________

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.