title: Copy text from excel cell to word if condition is met
body: <p>I'm designing an excel worksheet, where I can add the text from certain cells to a new word document if a condition for the each cell is met.</p>
  <p>My code pastes the text from the cell to the new word document. But it always replaces the text from the previous cell. So only the last cell is visible. How can I change that?</p>
  <pre><code>Private Sub CommandButton1_Click()
  
  Dim WrdApp As Word.Application
  Dim WrdDoc As Word.Document
  
  Set WrdApp = New Word.Application
      WrdApp.Visible = True
      WrdApp.Activate
  
  Set WrdDoc = WrdApp.Documents.Add
  a = Worksheets(&quot;Tabelle1&quot;).Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 6 To a
  
      If Worksheets(&quot;Tabelle1&quot;).Cells(i, 5).Value = &quot;Ja&quot; Then
          
          Worksheets(&quot;Tabelle1&quot;).Cells(i, 4).Copy
          WrdDoc.Paragraphs(1).Range.PasteSpecial xlPasteValues
          
      End If
  Next
  
  Application.CutCopyMode = False
  
  End Sub
  </code></pre>