Macro para insertar fila ARRASTRANDO fórmulas hasta la última celda con fórmulas

En la tabla B2:R, las columnas O:R tienen fórmulas. En dicha tabla constantemente se insertan filas, no abajo, sino en diferentes lugares de la tabla. Con la siguiente macro me paro en una fila y agrego la cantidad de filas que quiera, copiando no sólo el formato de la fila sino también las fórmulas de O:R.

El problema está en que la fórmula de cada línea depende de la línea anterior (ej: B6+D6+D5), entonces al agregar una línea en mitad de tabla, las filas de abajo ya quedan desfazadas en la fórmula. Ejemplo: En fila 6 está la fórmula: B6+D6+D5. Me paro en la fila 6 e ingreso una fila nueva. La fila nueva ahora es la fila 7 y quedará con la fórmula B7+D7+D6. Hasta aquí bien, pero ahora viene el problema: En la que antes era fila 7 y ahora queda como fila 8 no actualiza su formula.

Les pido si pudieran ayudarme a que al ingresar N cantidad de filas, la macro también actualice las fórmulas de O:R desde la fila ingresada hasta la última fila con fórmulas de estas columnas.

Sub InsertarFilas_ABM()
    If ActiveCell.Row < 3 Then Exit Sub
    Application.ScreenUpdating = False
    On Error GoTo j
    a = InputBox("Ingresar el Número de Filas", "Filas a Instertar")
    If a <= 0 Then Exit Sub
    For i = 1 To a
    fila = ActiveCell.Row
    Rows(fila).Select
    Selection.Copy
    fila = fila + 1
    Rows(fila).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range("B" & fila, "N" & fila).ClearContents
    Range("B" & fila, "N" & fila).ClearComments
    Next i
    ultima = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
    Cells(ultima + 1, 2).Select
j:
    Application.ScreenUpdating = True
End Sub