04. SumNumbers

Sub SumNumbers()
    Dim n, sum As Integer
    n = Range("A1")

    For i = 1 To n
        Dim num As Integer
        num = Range("B" & i)

        sum = sum + num
    Next i

    Debug.Print sum
End Sub