Range.PasteAppendTable (Word)

Combina las celdas pegadas en una tabla existente insertando las filas pegadas entre las filas seleccionadas.

Sub PasteAppend 
 Selection.PasteAppendTable 
End Sub