Excel VisualBasic Script

Sub SelectUp()
    Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub