VBA how to expand the current row selected

[travelboo]

I am using :


FinalRow = Cells(Rows.Count, 1).End(xlUp).Select
Rows(ActiveCell.Row).Select

Now i need to expand the current row selected to include the 50 rows above. Any ideas ?

Thanks

 

[VoG]

Try

Rows(ActiveCell.Row).Offset(-49).Resize(50).Select