Emanuelle Oliveira

Boa tarde, estou programando um VBA para copiar e colar informações de uma planilha em outra: Sub preenchimento Dim esse As Workbook, outro As Workbook, ws As Worksheet Workbooks.Open ("caminho") Set este = ThisWorkbook Set outro = ActiveWorkbook Set ws = este.Sheets(2) outro.Sheet(6).Range("D5").End (xltoRight).Copy With este.Sheet(2) Linha = este.Sheets(2).Range("D5").End (xlToRight).Row + 1 ws.Cells (5, Linha).Select Selection.PasteSpecial End With End Sub Porem esta dando erro de definição de objeto na linha que está de vermelho, alguém conseguiria me auxiliar nesse erro?