' 宣言していない変数を使用不可にする．
Option Explicit

Sub MainProc()

    Dim i1 As Integer, i2 As Integer
    Dim j1 As Integer, j2 As Integer
    Dim j3 As Integer, j4 As Integer

    i1 = ActiveSheet.Range("A2").Cells(1, 1).Value
    i2 = ActiveSheet.Range("B2").Cells(1, 1).Value

    j1 = i1 + i2
    j2 = i1 - i2
    j3 = i1 * i2
    j4 = i1 / i2

    ActiveSheet.Range("E2").Cells(1, 1).Value = j1
    ActiveSheet.Range("E2").Cells(2, 1).Value = j2
    ActiveSheet.Range("E2").Cells(3, 1).Value = j3
    ActiveSheet.Range("E2").Cells(4, 1).Value = j4

End Sub