Macro that Inserts a row in between rows (with formulas etc)

Hi,
I’m new to VBA & struggling a bit…..to explain…..I have 2 worksheets (“Main Log” & “Summary Log”) In the code below it inserts a row where I want it including formulas etc which is good…..but…
1. Is there a code that would insert in the “Main log” & “Summary log” (P.s I need the row in exact same row number but it has different formulas in it)?
2. Is there another code to delete the entire row on both sheets also?
3. Can I get round having the Summary log sheet locked?

#
Sub Test()
Dim r
r = Application.InputBox(Prompt:="Enter row number", Title:="Insert row", Default:=ActiveCell.Row, Type:=1)
If r = False Then Exit Sub
Rows(r - 1).Copy
Rows(r).Insert
On Error Resume Next
Rows(r).SpecialCells(xlCellTypeConstants).ClearContents
End Sub
#