Macro to fill column to end of data in other column

[tourless]

Hi Folks,

Got one that I've been having a hard time with. I run a report in crystal
and export it into excel. Once in excell my macro removes some empty rows and
columns, adds a date, and places formula in specific cells on the sheet. I
would like for the macro to be able to fill down on the columns with the
formulas until it reaches the end of the data. The problem I'm having is that
I run this for about 20 sheets where the bottom row of data is always going
to be different based.

I can populate formulas...
Range("Q16").Select
ActiveCell.Value = "=((D16+H16+P16)-I16)/E16"
Range("R16").Select
ActiveCell.Value = "=SUM(P16/N16)"
Range("S16").Select

but when I try to fill down...
Range("Q16:S16").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown

I get the formula's running down to the very bottom of my sheet. Is it even
possible?