Selecting a range above the blank - macro

[PotatoBrado]

Is there a simple way to select a range from the currently selected cell down to the cell directly above a blank?
I'm writing a macro where I've found the first cell in a column that I need, but I haven't figured out how to do a "Shift + Select" down to the cell above the next blank cell.
It can't be a specific range down to like "A15" or something because with each set of numbers I use the number of rows with data will change.

Any help would be appreciated! Thanks!

 

[jim may]

'Select your initial cell then run this macro

Sub Macro1()
    Range(Selection, Selection.End(xlDown)).Select
End Sub