【VBA】借金自動計算プログラムを作ってみた

Sub DebtCalculation()
  ' 返済金額宣言
  Dim RepaymentAmount As Long
  ' 残高宣言
  Dim CellValue As Long
  ' 返済済み金額宣言
  Dim TotalMoney As Long
  ' 返済金額の最終セル番号の宣言
  Dim LastRange As Integer
  ' 借金残高
  CellValue = Cells(3, 6).Value
  ' 返済金額の最後に書かれているセル番号の取得
  LastRange = Cells(Rows.Count, 2).End(xlUp).Row - 2
  ' 返済済み金額初期値
  RepaymentAmount = 0
  Debug.Print "返済金額　セル数"
  Debug.Print LastRange
  
  ' for文の宣言
  Dim i As Integer
  For i = 0 To LastRange
    ' Range(B3) 返済金額 Cells(行番号, 列番号)
    RepaymentAmount = Cells(2 + i, 2).Value
    Debug.Print "返済金額"
    Debug.Print RepaymentAmount
    ' 残高 - 返済金額
    Cells(2 + i, 3).Value = CellValue - RepaymentAmount
    ' CellValueに残高を上書きする
    CellValue = CellValue - RepaymentAmount
    Debug.Print "残高"
    Debug.Print CellValue
    ' 返済金額 + 返済済み金額
    Cells(2 + i, 4).Value = RepaymentAmount + TotalMoney
    ' TotalValueに返済金額を上書きする
    TotalMoney = RepaymentAmount + TotalMoney
    Debug.Print "返済済み金額"
    Debug.Print TotalMoney
  Next
End Sub