Run-Time Error '429' Active X component cant create object

[klutch]

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 wdDoc = wdApp.Documents.Open(myfile)
Set oTable = SourceDoc.Bookmarks("PRTable").Range.Tables(1)
WriteToDoc.Range.InsertAfter oTable.Cell(2, 4).Range.Text & vbCrLf
SourceDoc.Close
Set oTable = Nothing
Set SourceDoc = Nothing
file = Dir()
 
 
End Sub

I have found some code online for copying a cell to word inside of a bookmarked table. This is my attempt to place that code with what I currently have.
Can someone debug this for me or tell me the steps I need to take to make this run?