Hi All,
I'd like to ask you for advise. I've got the following code which works properly but seems to look perfect to make a loop out of it. Unfortunately I cannot find a way how to do it.
Thanks in advance
I'd like to ask you for advise. I've got the following code which works properly but seems to look perfect to make a loop out of it. Unfortunately I cannot find a way how to do it.
Code:
Rng1 = Range("J10")
Rng2 = Range("D18:D30")
Rng3 = Range("K18:K24")
Rng4 = Range("D55:D68")
Rng5 = Range("L55:L68")
Rng1.Copy Rng1.Offset(, 1)
Rng1.ClearContents
Rng2.Copy Rng2.Offset(, 1)
Rng2.ClearContents
Rng3.Copy Rng3.Offset(, 1)
Rng3.ClearContents
Rng4.Copy Rng4.Offset(, 1)
Rng4.ClearContents
Rng5.Copy Rng5.Offset(, 1)
Rng5.ClearContents
Thanks in advance