Use ActiveCell and ActiveCell.End to create Range
Sub SelectDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub