Create named ranges in Column on worksheet

Hello Excel Experts,

I have a worksheet that I need to create named ranges, or at least get
the addresses for.

The data occurs in a single column, separated by blank cells. It
could be 1 or 2 or 3 blank rows (or more I suppose) between the cells
with data.

I would like to avoid counting all the rows, in a for loop, and
looking for empty cells, etc.

I have looked around this newsgroup and found some helpful code:

Cells(Range("a:a").End(xlDown).Row + 1, 1).Select

This selects the first empty cell in my column. I can get the address
of the selection, and backup one row to define the range address
(a1:a13 for example).

Then I still need to move down in the worksheet, this time ignoring
the blank rows,
and starting from the next row with data, and moving down to the row
just above the empty cell ... hence a new range i.e. a17:a27, etc. I
would like to continue this process until there are no more rows (in
the same column) with data.

any ideas on how to do this using the range object, etc.

Thanks,

eholz1