Dim newDoc As Document
Dim mytable As Table
Set newDoc = Documents.Add
Set mytable = newDoc.Tables.Add(Selection.Range, 4, 8)
For i = 1 To mytable.Range.Cells.Count
mytable.Range.InsertAfter "Cell " & i
mytable.Range.Cells(i).Range.InsertAfter "cell" & i
Next