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