Needing a cut and past macro

[Jayhawktc]

I have a spreadsheet that needs to be updated daily, I would like t
place a macro button on a worksheet entitled "summary" that will cu
all the data on worksheet "Backorder Items" and then paste the dat
into a worksheet called "Archived Backorder". As a prep for the nex
data to be entered into the "Backorder Items" worksheet. Any hel
would be greatly appreciated.

Thanks,
Tyle

 

[Tom Ogilvy]

Dim rng as Range
Dim rng1 as Range
With worksheets("Archived Backorder")
set rng = .cells(rows.count).End(xlup)(2)
End with
With worksheets("Backorder Items")
set rng1 = .Range(.Cells(2,1),.Cells(rows.count,1).End(xlup))
End with

rng1.Entirerow.copy Destination:=rng
rng1.Entirerow.Delete

 

[Steve Pardey]

Hi Tom,

Thanks for that cut and paste code - I was in need of it also.
However, mine comes up with a run-time error of "1004" - saying that
the info cannot be pasted because the Copy area and the paste area are
not the same size and shape.

Any ideas on an amendment to the code?

TIA

--Steve--