Assign array

[welchs101]

Hi, I need help assigning an array.

In the past i have used something like the following to define a multi-dimensional array

active_array = active_ws.Range("A1", active_ws.Cells(Rows.Count, "A").End(xlUp).Offset(, 1))

But in this case i cant use this defn/assignment. See enclosed file. I am trying to assign to an array the shaded cells. I have a for loop and the first time through i want to assign the area in red to a multidimensional array. I will do "something" with this array and then the the next time through the loop i will assign the area in purple.

Problem i am having is assigning the shaded cells to muli-dimensional array using the type of defn above. Any suggestions?