Selecting Till last row

[Alfred]

Hi
I used the following code in a macro
Range(Selection, Selection.End(xlDown)).Select 'the same as
CTRL-SHIFT-DownArrow

This does not work if there is emty rows (only selects till it finds the
first emty row)

Is there another function to select till the last row that is populated ?

Thanks a lot
Alfred

 

[Gary Keramidas]

you can try this

Range(Selection, Cells(Rows.Count, Selection.Column).End(xlUp)).Select