Excel VisualBasic Script

Sub SelectDown()
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub