Macro help. Insert row and copy formulas from row above

[Kesbutler]

I have a worksheet that I need to insert rows but copy only the formulas from
the row above. Any suggestions?

 

[Joel]

to copy the last row and maintain your formulas it is best to copy the last
row and insert the copy before the last row. Thne clear the non-formula
cells from the last row. A little backwards, but it will work.


Lastrow = range("A" & rows.Count).end(xlup).Row
Rows(Lastrow).copy
Rows(Lastrow).Insert
Rows(Lastrow + 1).SpecialCells(xlCellTypeConstants).ClearContents

 

[Kesbutler]

I have following formula working. But the new row is not protected. Is there
a way to have the macro lock the cells with the formula so they cannot be
updated by users?

Thanks

 

[Kesbutler]

Is there a way to have it copy only the formulas? Also, the workbook will be
password protected.