Automatic Update Formula When Row Inserted

In my "example" I have references in Summary!D23:E32 which take data from Input!B36:U36. Is it possible to automatically update these formulae if a row is inserted eg above my row 37? The formula in D23 should then change from =OFFSET(B37,-1,0) to =OFFSET(B38,-1,0) and so on. I would like this to occur wherever I insert a row.
I am using this code, but it inserts rows consecutively from the top only.

Sub InsertVolRow()
Dim iRow As Long, iColumn As Long
On Error Goto Exit_Error
iRow = Application.WorksheetFunction.Match(" Total", Range("A:A"), 0)
Rows(iRow).Select
Selection.Insert Shift:=xlDown
iColumn = Application.WorksheetFunction.Match("Total", Range("2:2"), 0)
Cells(iRow - 1, 1).Select
Selection.AutoFill Destination:=Range(Cells(iRow - 1, 1), Cells(iRow, 1)),