range: from active cell to last cell in current column (discontinuing)

[aLUPIN]

Maybe

Sub Select2()
Dim lr As Long
lr = Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
 '----> In the above line, you might need to change "xlValues" to "xlFormulas"
    With ActiveCell.Parent
        Range(ActiveCell, .Cells(lr, ActiveCell.Column)).Select
    End With
End Sub

Works like a charm!
Thank you!