Assign array

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?

Maybe this?

Sub x()

Dim r As Range, active_array

For Each r In Columns(1).SpecialCells(xlCellTypeConstants).Areas
    If r.Rows.Count > 1 Then
        active_array = r.Resize(, 2)
        ' do stuff
        Erase active_array
    End If
Next r

Thanks for the response.

Here is what i came up with but for some reason i am getting a type mismatch error

active_array = ws.Range(Cell.Address(0, 0), ws.Cells(Cell.Row, Cell.End(xlDown)).End(xlDown).Offset(, 1))

any ideas why?

I have not tried that soln yet but i will later today. Had to work on something else that came up. But i will try it!

the code from StephenR works great.......exactly what i wanted it to do. wish i had seen this before i spent so much time trying to figure it out on my own.

thanks for the help!

How does it know what cells to put into the array? I mean it puts exactly the cells into the array that i was looking for.......i think it has to do with this

SpecialCells(xlCellTypeConstants).Areas


But i am not sure...............can someone explain?

thanks Leith Ross.......but how did the code know correct area? I still dont understand how only the area i wanted got selected/determined?