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:

Please Login or Register  to view this content.

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:

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.

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

Formula:

Please Login or Register  to view this content.

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:

Please Login or Register  to view this content.

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:

Please Login or Register  to view this content.

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

then perhaps

Please Login or Register  to view this content.

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.