Loop through Array then Offset Range by given Value

How do I use a loop to offset a range on each looped Array?
This is what I have:

Formula:

Dim linerng(1 to 30) as Integer, i As Variant



For Each i In linerng

    Set linerng(i) = Worksheets("Roster").Range("A5:AD5")

But then I need to offset A5:AD5 by a row value of 4 each time it completes a loop. Any ideas ?

To better explain my problem I have this:-

Formula:

Set linerng(1) = Worksheets("Roster").Range("A5:AD5")

Set linerng(2) = Worksheets("Roster").Range("A9:AD9")

Set linerng(3) = Worksheets("Roster").Range("A13:AD13")

Set linerng(4) = Worksheets("Roster").Range("A17:AD17")

Set linerng(5) = Worksheets("Roster").Range("A21:AD21")

This is poo, lol if i were to complete it like this i'd have to do that 30 more times :S

Should be like

    Dim linerng(1 To 30) As Range, i As Long
    For i = 1 To 30
        Set linerng(i) = Worksheets("Roster").Range("A5:AD5").Offset((i - 1) * 4)
    Next

Thanks everyone for the replies. One last question though.
How do I increase this by 1?

Formula:

For iee = 1 To 30

    Set linerngints(iee) = Application.Inersect(myRange, linerng(iee)) + 1

Next

What do you mean by

How do I increase this by 1?

Originally Posted by jindon

What do you mean by

Ah crap my apologies that was written wrong lol.

Formula:

For iee = 1 To 30

Set linerngints(iee) = Application.Inersect(myRange, linerng(1))

I want linerng(1) to increase by 1

Is it related to the code I posted? or new question?

Anyway your code doesn't make sense to me, so you need to explain what you are really trying to do in words.

No this is a new code but part of the bigger picture.

Formula:

 

For ie = 1 To 30

        Set linerng(ie) = Worksheets("Roster").Range("A5:AD5").Offset((ie - 1) * 4)

    Next <------------ This i wha you've already given me



For iee = 1 To 30

    Set linerngints(iee) = Application.Inersect(myRange, linerng(1)) 

Next <------- I need this new part to increase by one because I have the same issue as before with the code below.



Set linerngints(1) = Application.Intersect(myRange, linerng(1))

Set linerngints(2) = Application.Intersect(myRange, linerng(2))

Set linerngints(3) = Application.Intersect(myRange, linerng(3))

Set linerngints(4) = Application.Intersect(myRange, linerng(4))

Set linerngints(5) = Application.Intersect(myRange, linerng(5))

'And so forth all the way to 30

Lol my apologies again i have no idea how to word or describe it

then perhaps

    Set linerngints(iee) = Application.Inersect(myRange, linerng(iee))

unfortunately it doesn't work

"Doesn't work" is the worst response.

How is it not working?

Since you are posting just a part of the code one by one, it is too hard to even guess.

You changed the post to from

Set linerngints(iee) = Application.Inersect(myRange, linerng(i))
to
Set linerngints(iee) = Application.Inersect(myRange, linerng(iee))

But yes (iee) does work XD thankyou for being patient.