Range.PasteAppendTable (Word)

Mescla as células coladas em uma tabela existente inserindo as linhas coladas entre as linhas selecionadas. Nenhuma célula é sobrescrita.

Sub PasteAppend 
 Selection.PasteAppendTable 
End Sub