（参考）各セルにコピーするのには次のマクロを利用するのも1つの方法です。

次の例は左最上端で編集した場合のプロシージャです。

Sub CopyCell()

With ActiveDocument.Tables(1)
y = .Rows.Count: x = .Columns.Count
.Cell(1, 1).Range.Copy

For i = 1 To y
For j = 1 To x
.Cell(i, j).Range.Paste
Next j
Next i

End With

End Sub