Do〜Loopがうまくいきません

実現したいこと

セル範囲【D12：D17】に累計を求める「練習6」プロシージャを作成しましょう。Do～Loopステートメントを使うこと。

【ヒント】
4月の累計は4月のみの金額であり、5月以降の累計は、4月から当月までの合計である。したがって、繰り返しの処理が必要なのは、5月以降の累計計算であることに注意して、計算式を書くこと。
という問題です。

発生している問題・分からないこと

Excelのvisual basicで入力しています。
Sub 練習6()
Dim total As Double
Dim i As Integer
total = 0
i = 1

Do If i = 1 Then total = Cells(12, 4).Value Else total = total = total + Cells(i + 11, 4).Value End If Cells(i + 11, 4).Value = total i = i + 1 Loop Until i > 6

End Sub
と入力したのですが、4月からの累計が、0、-1
-1 -1 -1 -1 となってしまいます。

該当のソースコード

visual

1Sub 練習6() 2 Dim total As Double 3 Dim i As Integer 4 total = 0 5 i = 1 6 7 Do 8 9 If i = 1 Then 10 total = Cells(12, 4).Value 11 Else 12 total = total = total + Cells(i + 11, 4).Value 13 End If 14 15 Cells(i + 11, 4).Value = total 16 17 i = i + 1 18 Loop Until i > 6 19End Sub

試したこと・調べたこと

上記の詳細・結果

色々試したのですが、分かりませんでした。
よろしくお願いいたします。

補足

特になし