How to cut and past range from one worksheet to another?

[Phil Smith]

My code keeps failing at this line and I am banging my head against a brick wall!

[URL="https://www.mrexcel.com/forum/newthread.php?do=newthread&f=10"]
Sheets("Diagrams").Range(Cells(LastCR, 1), Cells(LastEnd, 6)).Cut Destination:=Sheets("New Diagram")[/URL]

For the first range to be cut, LastCR=6862 and LastEnd=6807. How do I cut this range to the worksheet "New Diagram"?

Thank you....

 

[MARK858]

Maybe, changing Range("A2") to suit.

Sheets("Diagrams").Range(Sheets("Diagrams").Cells(LastCR, 1), Sheets("Diagrams").Cells(LastEnd, 6)).Cut Destination:=Sheets("New Diagram").Range("A2")

P.S. please don't use URL tags when posting code.

 

[Phil Smith]

You Sir, are a genius.

Can you explain why Sheets("Diagrams") has to be referenced for the start of the range and the end of the range when it has already been reference before .Range?

 

[MARK858]

Because any form of range (and Cells is a range) unless referenced by the sheet refers to the activesheet so unless Sheets("Diagrams") is the activesheet you are referencing 2 different sheets in a range which will produce an error.