まずはVBA初めて学習

Sub test()

Set sheetobj = ThisWorkbook.Worksheets("sheet1")

Dim eigo
Dim kokugo
Dim sum
Dim i


eigo = sheetobj.Cells(1, 1)
kokugo = sheetobj.Cells(1, 2)

sum = eigo

sheetobj.Cells(1, 1) = kokugo

sheetobj.Cells(1, 2) = sum

End Sub