Sub CopyTable()
  Dim Osource As Document
  Set Osource = Documents.Open("C:\documentlocation.docx")
  Osource.Tables(2).Cell(2, 1).Range.Copy
  ActiveDocument.PasteAndFormat wdFormatPlainText
End Sub
Sub CopyTableII()
Dim Osource As Document
Dim oRng As Range
  Set Osource = Documents.Open("C:\documentlocation.docx")
  Set oRng = Osource.Tables(1).Cell(2, 1).Range
  oRng.End = oRng.End - 1
  Selection.FormattedText = oRng.FormattedText
End Sub