Cannot create the loop

[Envil]

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.

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

 

[NeonRedSharpie]

Dim rng(5) As Range



Set rng(1) = Range("J10")
Set rng(2) = Range("D18:D30")
Set rng(3) = Range("K18:K24")
Set rng(4) = Range("D55:D68")
Set rng(5) = Range("L55:L68")


For x = 1 To 5
    rng(x).copy rng(x).Offset(, 1)
    rng(x).ClearContents
Next x

 

[Envil]

NeonRedSharpie - thank you very much for the your help! The loop works perfect. I was very close to this solution however my understanding of variable declaration in this case was wrong. I was trying to do the following:

Dim rng(1) As Range
Dim rng(2) As Range
Dim rng(3) As Range
Dim rng(4) As Range
Dim rng(5) As Range