Sub CopyAndPaste()
Dim myfile, wdApp As New Word.Application, wdDoc As Word.Document
Dim oTable As Table
Dim WriteToDoc As Document
Dim SourceDoc As Document
Set WriteToDoc = ActiveDocument
myfile = Application.GetOpenFilename(, , "Browse for Document")
Range("e4").Copy
wdApp.Visible = True
Set...