title: Search each row, paste each match - Excel VBA
body: <p>So I can search but I'm having problems with the loop, here is an example for some context:</p>
  
  <pre><code>Sub Find_First()
  Dim FindString As String
  Dim Rng As Range
  FindString = InputBox("Enter a Search value")
  If Trim(FindString) &lt;&gt; "" Then
  With Sheets("DCCUEQ").Range("1:20") 'searches all of rows 1 to 20
      Set Rng = .Find(What:=FindString, _
                      After:=.Cells(.Cells.Count), _
                      LookIn:=xlValues, _
                      LookAt:=xlWhole, _
                      SearchOrder:=xlByRows, _
                      SearchDirection:=xlNext, _
                      MatchCase:=False)
      If Not Rng Is Nothing Then
          Application.Goto Rng, True 'value found
          MsgBox ("Value Found" &amp; Rng)
      Else
          MsgBox "Nothing found" 'value not found
      End If
  End With
  End If
  End Sub
  </code></pre>
  
  <p>There are a few things I need to do with this  </p>
  
  <p>If FindString is on a row, Copy and paste that row (From A:F) to Sheet3 starting from row 5<br>
  Skip the rest of that row and search the next row on DCCUEQ<br>
  check and paste under the previously pasted row (on Sheet3) if the requirements are met<br>
  Loop this until no information is found on a row  </p>
  
  <p>It is part of a large program so if I can get some slight aid in filling this part of the code I can do the rest quite easily by following the logic  </p>
  
  <p>Any help or direction to the information to aid me on an answer would be appreciated please.</p>