Sub yokin()
   Dim n, gankin, rishigaku As Long
   Dim rishi As Single
   Dim year As Integer
   
   gankin = Range("c6").Value
   rishi = Range("c7").Value
   year = Range("c8").Value
   
   Range("e7").Select
   For n = 1 To year
     rishigaku = gankin * rishi
     gankin = gankin + rishigaku
     ActiveCell.Offset(0, 0).Value = n
     ActiveCell.Offset(0, 1).Value = gankin
     ActiveCell.Offset(0, 2).Value = rishigaku
     ActiveCell.Offset(1, 0).Select
   Next n
   
End Sub