Finding last cell in a column

[georgiboy]

Something like:

Sub test()    
    Dim FirstCell As Range
    Dim LastCell As Range
    
    Set FirstCell = Cells(1, 1)
    Set LastCell = Cells(Rows.Count, 1).End(xlUp)
    
    Range(FirstCell, LastCell).Select
End Sub