Dynamic Range Name Creation

I'm needing some code that will program-magically do the following interactive stuff:

1. Go to the first cell that will be the start of my range, say "D1".

2. While holding down the "shift" key, press "end", then "down". All of the desired cells will then have been selected. [side note: how can I detect that the "d2" cell is not blank - I don't really want 65K cells in my range?]

3. Next, "Insert", "Name", "Define", then typein the desired name range ("schoolList", here) and press enter.

This would seem to be a case for using the macro recorder but the range will always come out hard-coded, rather than the cells that would be selected using an "end" "down" selection.