Using a macro to copy formulas down until the last formatted border

[SledDave]

Hey guys,

I'm having trouble with a particular macro.

I want to copy the formulas in J4:S4 all the way down to the bottom of my table.
The problem is there are already macros to insert rows based on specific criteria within the table. This is the reason I am copying the formulas down.
So a macro that copies the formulas down to a specific cell won't work.
The last row in the table, however, is formatted with a bottom border.

Is there a way I can copy the formulas from the top of the table (J4:S4) to the last row that has a border (J330:S330 as of today)?

Thanks!

 

[AlphaFrog]

This will fill the formulas from J4:S4 down to the last used row based on used cells in column A. You can change the column A to whatever column you want to use to determine the last used row.

[COLOR=darkblue]Sub[/COLOR] Phill_Phormulas()
    Range("J4:S4").AutoFill Destination:=Range("J4:S" & Range([COLOR=#ff0000]"A"[/COLOR] & Rows.Count).End(xlUp).Row)
End [COLOR=darkblue]Sub[/COLOR]

 

[SledDave]

Thanks very much! This worked well.