function - VBAを使用してExcelで増分合計を作成する方法

Question

これは、同じ列を同じ順序で表示する多くのシートがあり、それらには異なるデータが含まれている状況です。マクロを作成して、コスト列の隣に列を挿入し、実行中の合計または増分合計を作成しようとしています、この列は後で新しいシートにコピーされます。目標に近づくことができた試行の後、問題は、コスト列を合計せずに、マクロが同じ計算を何度も実行することです。以下に投稿しているコードを見ると、より明確になります。問題を解決するためのすべての助けをいただければ幸いです。

Sub IncCost()

    Dim r As Range
    Set r = ActiveSheet.Range("A1").CurrentRegion
    Columns("H:H").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("H1").FormulaR1C1 = "Incremental cost"
    Range("H2").FormulaR1C1 = Cells(2, 7)
    Range("H3").FormulaR1C1 = "=" & Cells(3, 7) & "+" & Cells(2, 8)
    Range("H3").AutoFill Destination:=Range("H3:H" & r.Rows.Count)

End Sub