select range from first cell with data thru last cell in col

[richfm1]

Hello,
i need the vba code to select the first cell with data in column a thru to the last cell with data same column.

thanks for your help

 

[VoG]

Try like this

Sub test()
Dim FR As Long, LR As Long
FR = Range("A1").End(xlDown).Row
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & FR & ":A" & LR).Select
End Sub

 

[JackDanIce]

If say it's in column A then:

Sub SelectRange ()
Dim StartCell as Range, EndCell as Range
If Len(Range("A1")) > 0 Then
   Set StartCell = Range("A1")
Else
   Set StartCell = Range("A1").End(xlDown)
End If
Set EndCell = Range("A" & Rows.Count).End(Xlup)
If StartCell.Row = EndCell.Row Then StartCell.Select
If StartCell.Row > EndCell.Row Then 
   MsgBox "Valid range not available"
Else
   Range(StartCell, EndCell).Select
End If
End Sub

Change the red A's to whatever column you want this to work on

 

[richfm1]

thanks... that worked.