' For --- Next
Sub hantei1()
    Dim height, weight As Single
    Dim bmi1, bmi2, haba As Single
    
    height = Range("a5").Value
    bmi1 = Range("c5").Value
    bmi2 = Range("e5").Value
    haba = Range("g5").Value
    
    Range("a8").Select
    For i = bmi1 To bmi2 Step haba
       weight = i * height ^ 2
       ActiveCell.Offset(0, 0).Value = i
       ActiveCell.Offset(0, 2).Value = weight
       ActiveCell.Offset(1, 0).Select
    Next i
End Sub
' Do While --- Loop
Sub hantei2()
    Dim height, weight As Single
    Dim bmi1, bmi2, haba As Single
    
    height = Range("a5").Value
    bmi1 = Range("c5").Value
    bmi2 = Range("e5").Value
    haba = Range("g5").Value
    
    Range("a8").Select
    Do While bmi1 <= bmi2
       weight = bmi1 * height ^ 2
       ActiveCell.Offset(0, 0).Value = bmi1
       ActiveCell.Offset(0, 2).Value = weight
       ActiveCell.Offset(1, 0).Select
       bmi1 = bmi1 + haba
    Loop
End Sub