title: VBA code to copy and paste specifc words in different cells to another worksheet
body: <p>I have a code that will copy and paste a whole row in worksheet called "Raw Data". If cells in Range $D$1:D have a value of "Thomas Xiong", then it will paste the whole row of everything under that value to another worksheet called "WIP".</p>
  
  <p>What I am trying to do is be able to create a code that will be able to find multiple words. For example, "Thomas Xiong" and the word "Assigned" and be able to copy and paste that whole line from the worksheet "Raw Data" into another worksheet.</p>
  
  <p>Also with the code I have now, it will copy and paste the whole rows but there are spaces in between each cell row in the other worksheet.</p>
  
  <p>The code I have now:</p>
  
  <pre><code>Sub Test()
  
  Dim Cell As Range
  
  With Sheets("Raw Data")
  ' loop column C untill last cell with value (not entire column)
  For Each Cell In .Range("D1:D" &amp; .Cells(.Rows.Count, "D").End(xlUp).Row)
      If Cell.Value = "Thomas Xiong" Then
           ' Copy&gt;&gt;Paste in 1-line (no need to use Select)
          .Rows(Cell.Row).copy Destination:=Sheets("WIP").Rows(Cell.Row)
          '.Range("C1:C", "A", "B", "D", "F" &amp; Cell.Row).copy
      End If
    Next Cell
  For Each Cell In .Range("C1:C" &amp; .Cells(.Rows.Count, "C").End(xlUp).Row)
      If Cell.Value = "Assigned" Then
           ' Copy&gt;&gt;Paste in 1-line (no need to use Select)
          .Rows(Cell.Row).copy Destination:=Sheets("WIP").Rows(Cell.Row)
          '.Range("C1:C", "A", "B", "D", "F" &amp; Cell.Row).copy
      End If
  Next Cell
  End With
  
  End Sub
  </code></pre>