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