I'm creating an Excel document that, among other things, copies a few arrays of data into a Word file.

Everything is working absolutely fine except that, when it pastes the selection I'm interested in, it pastes it infinitely until I intervene by taking down Word via Task Manager.

There is no reason, as far as I can see, for it to loop. So I'm pretty clueless of what to do next, and I was hoping you guys would shed a light into what I'm doing wrong. The concept is as follows:

Sub TestA()

    'Word objects.
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdbmRange As Word.Range
    
    'Excel objects.
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim rnReport As Range
    
    'Opening app and document
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open("C:\Users\RCO1\Desktop\Teste VBA\2. Conceptual Testing\Export\XLWDTST.docx")
    Set wdbmRange = wdDoc.Bookmarks("TableInsertion").Range
    
    'Selecting array
    Sheets("ExportMe").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    
    'Pasting data
    With wdbmRange
    .PasteSpecial '<------- it simply goes back up to the beginning of the code at this point
    CutCopyMode = False
    End With
    
    'Closing and saving
    wdDoc.Save
    wdDoc.Close
    wdApp.Quit
        
    Set wdApp = Nothing
    Set wdDoc = Nothing


End Sub
Just note that I can't simply transform this array into a table so to speak for formatting reasons.

Thanks in advance.