Range.Paste (Word)

Inserta el contenido del Portapapeles en el intervalo especificado.

Si no desea reemplazar el contenido del intervalo, utilice el método Collapse antes de utilizar este método. Cuando se utiliza este método con un objeto Range , el intervalo se expande para incluir el contenido del portapapeles.

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