今回は、Wordのドキュメント上のテーブルの指定したセルに、思い通りにデータを表示する、という、Excelとの連携には関係のない作業です。
Sub hyo()
'Word「テーブル」（一つ）のセルにデータを書き込む
Dim tbl As Object
Set tbl = ActiveDocument.Tables(1)
'テーブル（８行５列）のセルに（行)*10+(列)を書き込む--開始
With tbl
For j = 2 To 8 '行
For k = 1 To 5 '列
.Cell(j, k).Range.Text = j * 10 + k
Next k 'For k = 1 To 5
Next j 'For j = 2 To 8
End With 'With tbl
'テーブル（８行５列）のセルに（行)*10+(列)を書き込む--終了
End Sub
図は、下に一部隠れている表が書き込み前、21などの数が書き込まれているのがVBA実行後の状態です。
この後は、書式などをコントロールしないといけないですね。
