Codigo VBA Tabla de Excel a Word

Sub Tabla_de_Excel_a_Word()


Selection.Copy


Dim swMSWord As Word.Application
Set swMSWord = New Word.Application
    With swMSWord
      .Visible = True
      .Activate
    End With

swMSWord.Documents.Add

swMSWord.Selection.PasteSpecial link:=True

Set swMSWord = Nothing

End Sub