Select entire Column till last row VBA

[Wamhoi]

I feel this is very simple fix but my code is flawed.

Dim LastRow As Long

With Worksheets("Sample")
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("R2:LastRow").Select
End With

 

[Ashis Kumar]

I think the above cods are complicated & unnecessary...

Sub SelROWS()
ActiveSheet.Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

 

[sur]

how can we refer the column to active cell column with the VBA Code ?

 

[MARK858]

how can we refer the column to active cell column with the VBA Code ?

Which code are you referring to (remembering that the code in post 11 only selects up until the first blank cell and not the last row if there are blanks in the column)?