まずは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