VBA - Paste Reports into a Determined Sheet

Question

I am mounting a macro that opens a specific report copy the data and paste into another spreadsheet in a given sheet. But I’m having a hard time at the part where I can stick it to the other spreadsheet.

So far we have:

Dim as Integer
Data= Sheets("nome da sheet").Range("A1")
Range("A1").Value = Data

Workbooks.Open Filename: =
"Caminho do relatório\nome do relatório" & Data & ".xlsm"

Range("A2","R16").Copy

Active.Sheet("nome da sheet")

Range(A5,R65).pastespecial

And the error message appears 424;

Now enters the problem. I can not paste this report in the spreadsheet (by the way this spreadsheet is where I am mounting the macro)

Answer 1

Natalia, Try to change that part:

Range("A2","R16").Copy

Active.Sheet("nome da sheet") Range(A5,R65).pastespecial

For:

Range("A2:R16").Copy

Sheets("nome da sheet").Range("A5").Paste