Help on VBA for inserting a row

[frank850102]

Dear all

I have a spreadsheet that I need to insert rows anywhere in the model quite often. I find it quite frastrating that every time I insert a row, I have to copy the formulas down from the rows above.

Is there a way to write a VBA code that every time I insert a row, all the formulas above can be directly copied down, but the cells that require manual input do not get copied? in another word, keep the cells requiring manual input blank.

Thank you very much!

 

[Michael M]

Try this before using VBA
Highlight the row at the header and right click
Select copy
Now Highlight the row below and right click again
Select Insert copied cells.
Everything will now be copied, including the formulae

 

[frank850102]

Try this before using VBA
Highlight the row at the header and right click
Select copy
Now Highlight the row below and right click again
Select Insert copied cells.
Everything will now be copied, including the formulae

Could you please write a VBA code for this process?

 

[Michael M]

Sorry Frank....Had to go and play golf !!!
try

Sub InsertRow()
Dim rowz As Range
Set rowz = Application.InputBox("Select a cell to add a row", Title:="Add a row", Type:=8)
    rowz.EntireRow.Copy
    rowz.EntireRow.Insert
Application.CutCopyMode = False
End Sub