Excel VBA - insert row & copy formulas

[bforster1]

I have been able to get a button that inserts rows but also need th
formula in the new row to copy from the row moved.

Below is my code for inserting rows. What would I add to have th
formulas across the row to copy to the new row??

Sub Macro4()
Range("TotalRev").Select
ActiveCell.Offset(-1, 0).Select
Selection.EntireRow.Insert
Range("COGS").Select
ActiveCell.Offset(-1, 0).Select
Selection.EntireRow.Insert
End Sub

Thank

 

[Dave Peterson]

David McRitchie has some code you can steal at:
http://www.mvps.org/dmcritchie/excel/insrtrow.htm