I try to avoid hard coding things is there's another way
Someome might wonder where the 'Magic Number' 1048576 came from
Sub Select1() With ActiveCell.Parent Range(ActiveCell, .Cells(.Rows.Count, ActiveCell.Column).End(xlUp)).Select End With End Sub