G
Grond
I hope, this is the proper way how to answer the question with reply
email "(e-mail address removed)". 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
email "(e-mail address removed)". 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