I hope, this is the proper way how to answer the question with reply
email ". If not, I am sorry...

Try this:

Sub Insert_row()
ActiveCell.EntireRow.Insert Shift:=xlDown
End Sub

The code adds a new row above the row where is the active cell.

Bye

Grond