Range.PasteAppendTable (Word)

Merges pasted cells into an existing table by inserting the pasted rows between the selected rows. No cells are overwritten.

Sub PasteAppend 
 Selection.PasteAppendTable 
End Sub