litestream
Active Member
- Joined
- Jul 24, 2006
- Messages
- 323
I need to copy some data from my stock entrysheet "STORAGE DELIVERY SHEET" to my Archive "MOVEMENT HISTORY"
Unfortunately, some of the data needs to appear in different rows from the original. The following code works fine for one row, but there are 27 rows on my entry sheet and I was wondering if this could be simplified
Unfortunately, some of the data needs to appear in different rows from the original. The following code works fine for one row, but there are 27 rows on my entry sheet and I was wondering if this could be simplified
EndRow = Sheets("MOVEMENT HISTORY").Range("A65536").End(xlUp).Row + 1
Sheets("STORAGE DELIVERY SHEET").Range("A17").Copy Destination:=Sheets("MOVEMENT HISTORY").Range("A" & EndRow & "")
Sheets("STORAGE DELIVERY SHEET").Range("B17").Copy Destination:=Sheets("MOVEMENT HISTORY").Range("B" & EndRow & "")
Sheets("STORAGE DELIVERY SHEET").Range("C17").Copy Destination:=Sheets("MOVEMENT HISTORY").Range("C" & EndRow & "")
Sheets("STORAGE DELIVERY SHEET").Range("E17").Copy Destination:=Sheets("MOVEMENT HISTORY").Range("E" & EndRow & "")
Sheets("STORAGE DELIVERY SHEET").Range("G17").Copy Destination:=Sheets("MOVEMENT HISTORY").Range("D" & EndRow & "")
Sheets("STORAGE DELIVERY SHEET").Range("H17").Copy Destination:=Sheets("MOVEMENT HISTORY").Range("F" & EndRow & "")
Sheets("STORAGE DELIVERY SHEET").Range("S1").Copy Destination:=Sheets("MOVEMENT HISTORY").Range("G" & EndRow & "")