Use area property to set rows

Hi all,

This code sets an area based on columns, with groups of rows seperated by a blank row. it works well.

Set myAreas = Sheets(1).Columns("a:f").SpecialCells(2, 1).Areas

ArrayedAreaAddress = myareas(1).address

I'm looking for the method to set myAreas so that I can set the myareas by individual rows within the columns

e.g.

Set myAreas = Sheets(1).Columns("a:f").Rows.Areas

This doesn't work.

Would anybody know how this is done

Cheers