Range.Paste (Word)

Insere o conteúdo da área de transferência no intervalo especificado.

Se você não quiser substituir o conteúdo do intervalo, use o método Collapse antes de usar esse método. Quando você usa esse método com um objeto Range , o intervalo se expande para incluir o conteúdo da área de transferência.

If ActiveDocument.Tables.Count >= 1 Then 
 ActiveDocument.Tables(1).Range.Copy 
 Documents.Add.Content.Paste 
End If