Excel VisualBasic Script

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