Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oDoc1 As Document
Dim oDoc2 As Document
Dim oRng As Range, oRngInsert As Range
  Set oDoc1 = ActiveDocument 'The one with the table
  Set oDoc2 = Documents.Add 'Some other document
  
  Set oRng = oDoc1.Tables(1).Range
  Set oRngInsert = oDoc2.Range
  oRngInsert.Collapse wdCollapseEnd
  oRngInsert.FormattedText = oRng.FormattedText
lbl_Exit:
  Exit Sub
  
End Sub