EXCELVBA 2重ループで累計金額を出したい

Question

VBA for netxtの2重ループで売上金額を元に累計金額出したいのですが、ネットで調べていろいろ調べたのですが、分かりません。d2:d11のg2:g11と同じように合計されるように、どうか教え頂けないでしょうか？すみまんせが宜しくお願い致しますー。
ちなみに売上金額は出せたのですが、累計金額、d2:d11は出来なかったので、=c2、=d2+c3とし、オートフィルで下にドラッグしただけです。h2:h11に、貼り付けました。

ExcelVBA
コード
Sub 売上金は出せたが､累計金額をどうにかして出したい()
Dim i As Long, j as long
lastrow = cells(rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
For j = 2 To lastrow
cells(i, 3) = cells(i, 1) * cells(i, 2)
sum = cells(j, 1).Value '←どうかにしたい
sum2 = cells(i, 2) + cells(j, 1).Value　'←どうかにしたい
Next j
Next i

Answer 1

２重ループにする必要はないのでは。
累計は変数に加算していけばいいでしょう。

Private Sub Sample()
    Dim i As Long, lastrow As Long, total As Long
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastrow
        Cells(i, 3).Value = Cells(i, 1).Value * Cells(i, 2).Value
        total = total + Cells(i, 3).Value     '累計
        Cells(i, 4).Value = total
    Next i
End Sub

実行後のシート

Comments

[kagosimah]

ありがとうございます。d2:d11がc2:c11の200,900,180,480,960,540,400,320,650を参照しているだけで、自分がしたい560,1460,1640,2120,3080,3620,4020,4340,4990と累計金額の合計を加えたいものと一致しません、total = total + Cells(i, 3).Value '累計、ここが自分の思ったもと違います。すみません。ここが改良出来たらいいのですがー。

[hatena19]

こちらで作成したサンプルでは、正しい累計になってます。
そちらのコードが私のと違っているのでは。
回答に実行後の画像をアップしておきます。

[kagosimah]

total = toral + cells(i, 3).Value '累計 totalではなく、toral

[kagosimah]

になっていました。すみません。間違っていたのは自分でした。助かりました。大変ありがとうございましたー。