title: VBA - Excel + Word integration - Code looping for no reason
body: <p>I'm creating an Excel document that, among other things, copies a few arrays of data into a Word file.</p>
  
  <p>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.</p>
  
  <p>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:</p>
  
  <pre><code>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 '&lt;------- 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 
  </code></pre>
  
  <p>Just note that I can't simply transform this array into a table so to speak for formatting reasons.</p>