VBA to select all data from selected Column

[prezftb09]

Here is my code currently:

Range("Y1").Select
Range(Cells(2, ActiveCell.Column), Cells(WorksheetFunction.CountA(Columns(ActiveCell.Column)), ActiveCell.Column)).Select

This is selecting all the values in column Y minus the header. I would like to select all data in Column Y:Column AO minus the headers.

 

[steve the fish]

Here you go:

With ActiveSheet
    lr = .Columns("Y:AO").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    If lr > 1 Then .Range(.Cells(2, "Y"), .Cells(lr, "AO")).Select
End With

 

[prezftb09]

Thank you are a lifesaver