Add row at specific location using vba

Thanks for your reply. I have written some vba which does the trick. I hope it helps someone else:

Application.EnableEvents = False

Application.ScreenUpdating = False
With ActiveSheet
.Protect Password:="PASSWORD", _
UserInterFaceOnly:=True
Application.GoTo reference:="OBJ"
ActiveCell.Offset(-1, 0).Range("A1:AM1").Select
    Selection.Copy
Application.GoTo reference:="OBJ"
    Selection.Insert Shift:=xlDown

    Application.GoTo reference:="OBJ"
    ActiveCell.Offset(-1, 0).Range("A1:AM1").Select
        Selection.ClearContents
 End With