Invoegen rij met formules

[groenenbb]

Voor een werkblad ben ik op zoek naar macro die onderstaande actie uitvoert.

Willekeurig in een blad kan er een rij ingevoegd worden. De situatie nu is rij invoegen en de bovenliggende of onderliggende cellen met formules kopieren en deze in de lege rij plakken.

De situatie zoals ik het graag gezien had is door middel van een snelkoppeling een rij invoegen die er ook automatisch voor zorgt dat er in bijvoorbeeld kolom G en H en I een formule neergezet wordt.
Het invoegen kan dus op elke positie binnen het werkblad uitgevoerd worden.

In het voorbeeld mag een simpele optel formule gezet worden.

Edit:
Het invoegen van een regel op willekeurige plaats heb ik reeds gevonden. Nu nog de formule om in de nieuw toegevoegde rij in bv kolom G en H een vaste formule plakken.

 

[Warme bakkertje]

Post jij dan eens een voorbeeldbestandje met wat je tot nu toe al in elkaar gebokst hebt.

 

[groenenbb]

De code die ik nu heb en werkt is:

Sub Insert_row()
    Selection.EntireRow.Insert
        Range("G" & (ActiveCell.Row)).Select
            With ActiveCell
              .FormulaR1C1 = "=ROUND(RC[-1]*RC[-4],4)"
            End With
        ActiveCell.Offset(, 2).FormulaR1C1 = "=ROUND(RC[-1]*RC[-6],4)"
        ActiveCell.Offset(, 4).FormulaR1C1 = "=ROUND(RC[-1]*RC[-8],4)"
        ActiveCell.Offset(, 5).FormulaR1C1 = "=ROUND((RC[-5]*Arb)+RC[-3]+RC[-1],4)"
End Sub

Misschien iemand tips aan de hand van bovenstaande code

 

[Hoornvan]

groenenbb,

Volgens mij kan FormulaR1C1 weg.

ActiveCell.Offset(, 2) = "=ROUND(RC[-1]*RC[-6],4)"

 

[groenenbb]

Bedankt voor de tip Hoornvan.