simple change to code

[staticbob]

Hi,

I have this code that copies data from one sheet to another. When this code is on the sheet I am copying from (Prog Report) it works fine. I want to run this from another sheet, when I do that it selects the incorrect range of cells.

Thanks in advance.


Sheets("Progress Report").Range("A6:E" & Range("A65536").End(xlUp).Row).Copy Sheets("As Built Data").Range("A2")
Sheets("As Built Data").Columns("B:E").Delete

 

[TryingToLearn]

Sheets("Progress Report").Range("A6:E" & Range("A65536").End(xlUp).Row).Copy Sheets("As Built Data").Range("A2")

I would guess it is taking your final row from the active sheet so try:

Sheets("Progress Report").Range("A6:E" & sheets("Progress Report").Range("A65536").End(xlUp).Row).Copy Sheets("As Built Data").Range("A2")

 

[staticbob]

Thanks matey, always something simple I can't remember.

Can you help with the other bit ? . . . .
http://www.mrexcel.com/board2/viewtopic.php?t=75191

Cheers