title: Append instead of replacing Word document contents
body: <p>I have multiple sheets in an Excel workbook. Over which I am iterating in a loop, where I copy data ranges and pasting them into word.</p>
  
  <p>Issue is every time the contents of the sheet are copied and pasted to word the previous all contents goes away. </p>
  
  <p>So how can I stop replacing the previous content and make the VBA script append to the word document?</p>
  
  <pre><code>Sub ewc()
  
      Dim WordApp As Word.Application
      Dim myDoc As Word.Document
      Dim WordTable As Word.Table
      Dim ws As Worksheet
      Dim tbl As ListObject
  
      Application.ScreenUpdating = False
      Application.EnableEvents = False
  
      Set WordApp = GetObject(class:="Word.Application")
  
      WordApp.Visible = True
      WordApp.Activate
  
      Set myDoc = WordApp.Documents.Open("D:\asd.docx")
  
      For Each ws In ThisWorkbook.Worksheets
          Debug.Print ws.Name, ThisWorkbook.Worksheets.Count
  
          ws.UsedRange.Activate
          LastRow = StartCell.SpecialCells(xlCellTypeLastCell).Row
          LastColumn = StartCell.SpecialCells(xlCellTypeLastCell).Column
          Debug.Print LastRow, LastColumn
  
          ws.Range(StartCell, ws.Cells(LastRow, LastColumn)).Select
          myDoc.Content.Paste
  
          Set WordTable = myDoc.Tables(1)
          WordTable.AutoFitBehavior (wdAutoFitWindow)
          myDoc.Save
  
  
  EndRoutine:
          Application.ScreenUpdating = True
          Application.EnableEvents = True
  
  'Clear The Clipboard
          Application.CutCopyMode = False
      Next ws
  End Sub
  </code></pre>