litestream
Active Member
- Joined
- Jul 24, 2006
- Messages
- 323
Code:
Range("C6").Select
Selection.Cut Destination:=Range("D5")
Range("C8").Select
Selection.Cut Destination:=Range("D7")
Range("C11").Select
Selection.Cut Destination:=Range("D10")
Range("C13").Select
Selection.Cut Destination:=Range("D12")
Range("C16").Select
Selection.Cut Destination:=Range("D15")
Range("C18").Select
Selection.Cut Destination:=Range("D17")
Range("C21").Select
Selection.Cut Destination:=Range("D20")
Range("C23").Select
Selection.Cut Destination:=Range("D22")
I have to continue this code up to about 2000 lines. Is there anyway to tidy up the code bearing in mind that one line is 2 more than the one above then the next line is 3 more than that?
Any assistance would be greatly appreciated.