I have several worksheets and I copy data from on temporary sheet into a
final sheet. I need to copy formulas that are in the new sheet down into
each of the new rows of data. The columas are not next to each other.

Here are the columns I need to copy the formula down in.

AF
AJ
AO
BP
Bq
BR
BS
BT

Here is a macro I recorded, but it would be fixed for only the current rows
and no more NEW data. How do I select the current column, minus header to
the end of data in that column? Column select won't work becuase of the
header....


Sub downfill()
'
' downfill Macro
' Macro recorded 9/22/2003 by
Range("AF2:AF845").Select
Range("AF845").Activate
Selection.FillDown
Columns("AF:AF").Select
Selection.NumberFormat = "[$-409]h:mm AM/PM;@"
Range("AJ2:AJ845").Select
Range("AJ845").Activate
Selection.FillDown
Columns("AJ:AJ").Select
Selection.NumberFormat = "mm/dd/yy;@"
Range("AO2:AO845").Select
Range("AO845").Activate
Selection.FillDown


End Sub


Thanks
Bruce