Paste selection from excel to word in specific paragraph

[Naziya]

Hi, anyone please help me solve this, the code below is selecting the fields to be pasted in word, but its creating a new word file and pasting the selection.
I need anyone to help me quickly with pasting the selection in the word file i choose and in paragraph 5. the word file already has content, this code is just to fit the table from excel to word. please help


Sub Test()
Dim tbl As Excel.Range
Dim WordApp As Word.Application
Dim myDoc As Word.Document
Dim WordTable As Word.Table


Sheets("Sheet1").Select
With ActiveSheet
.AutoFilterMode = False
.Range("A1:I1").AutoFilter
.Range("A1:I1").AutoFilter Field:=1, Criteria1:=InputBox("Please provide Country name")
End With
With ActiveSheet.AutoFilter.Range
.Offset(1, 0).Resize(.Rows.Count - 1).Copy
End With
'Set tbl = ThisWorkbook.Worksheets(Sheet1.Name).ListObjects("Table1").Range


Application.GetOpenFilename ("Word Files (*.doc*), *.doc*")
WordApp.Visible = True
WordApp.Activate
' tbl.Copy
myDoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False
Set WordTable = myDoc.Tables(1)
WordTable.AutoFitBehavior (wdAutoFitWindow)

EndRoutine:
'Optimize Code
Application.ScreenUpdating = True
Application.EnableEvents = True


'Clear The Clipboard
Application.CutCopyMode = False

'Opening the word document
'Set wordapp = CreateObject("word.Application")
'wordapp.documents.Open
'wordapp.Visible = True
:crying: