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