copy and paste is not working (VBA)

[shiva_raj]

Hi,


Below VBA code is not working. Pls go through it and help me.


ThisWorkbook.Sheets("sheet1").Range(Cells(2, 4), Cells(2, 7)).Copy Destination:=ThisWorkbook.Sheets("sheet1").Range(Cells(3, 4), Cells(gbplr, 7))

Note=here "gbplr" means last row in the sheet.

regards
shiva

[jindon]

Please Login or Register  to view this content.

[shiva_raj]

where is the mistake in my code?

[jindon]

Your code runs properly only if Sheet1 is active, or the code is written in Sheet1 code module.
If you run the code from other sheet, Range/Cells object should be qualified with its parent object(sheet).