My code keeps failing at this line and I am banging my head against a brick wall! :banghead:
Sheets("Diagrams").Range(Cells(LastCR, 1), Cells(LastEnd, 6)).Cut Destination:=Sheets("New Diagram")
For the first range to be cut, LastCR=6862 and LastEnd=6807. How do I cut this range to the...