Sub 二重For文で九九の計算()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To 9 ' 掛けられる数
        For j = 1 To 9 ' 掛ける数
            Cells(i, j).Value = i * j ' 計算結果をセルに入力
        Next j
    Next i
End Sub

このコードはな、九九をシートに書き込むためのやつだど。
まず最初に For i = 1 To 9 っつう文で縦（行）を順番に回してるんだっぺな。
これは、1段から9段までの掛け算を作るんだど。
そんで、次に For j = 1 To 9 っつって、横（列）を回してっぺよ。
つまり、1から9まで順番に掛ける数を指定してるんだど。これが2重ループつうやつだっぺ。

そんでな、Cells(i, j).Value = i * j っちゅう部分が肝心なんだど。
ここでは、掛け算の結果をセルに入れとるんだっぺ。
たとえば、iが1でjが2んなら、1×2の計算結果「2」がセルA2んとこに入るんだど。
これを繰り返して、A1からI9までぜんぶ結果を埋めていくんだっぺ。
最後に Next j で横の処理が終わったら次の列に進むようになってっぺ。
そのあとに Next i で、次の段（行）に行くんだど。
これで、九九の1段から9段まで全部埋まるんだべ。