Use ActiveCell.End to select a range
Sub ColumnSelect() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub