[Range]と[Cells]プロパティに置き換え

Option Explicit
  Dim i As Long
  Dim j As Long
''＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub 基本_1()
  Range("A1").Value = Cells(1, 1).Value  ''（[1,1]は、左が行、右が列）
End Sub
''＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub 基本_2()    ''変数の代入（数字で指定）
  i = 1:     j = 1    ''（数字部分を変数で代入[今回は共に『1』）
  Range("A1").Value = Cells(i, j).Value
End Sub
''＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub 基本_3_応用() ''（列だけアルファベットで固定、行は変数（今回は［1］））
  i = 1
  Range("A1").Value = Range("A" & i).Value
''＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
End Sub