With a cell in Col A selected this will insert a new row above the selected
cell.

Sub insertrow()
ActiveCell.Insert Shift:=xlDown
End Sub

"DorZki" wrote:

Hi,
I want to create a button when I click on it a new row will apper.

In need the code in VBS.

Thanks for all the helpers.