title: Move a row to the end of another based on certain conditions
body: <p>My worksheet has varying amounts of rows. Columns are from A to R and basically contain names and addresses. Under Client names contain Co-signers which can vary from none to say 10.  I need to move the Co-signer (1) row to the end of the client row.  If that client contains more than one Cosigner then the next Co-signer(2) row is to be moved to the end of Co-signer(1) information.  I can get the first one to work but can not figure out how to loop thru the worksheet and get all of the Co-signers on the correct Client line. This is what I have so far. Example</p>
  
  <pre><code>CLIENT#   FIRST NAME   LAST NAME      DEBT_SSN        STREET                
  
  00001     MICKEY       MOUSE          000-00-0000     Address Number 1              
            (CS) DONALD  DUCK           000-00-0001     Address Number 2              
  00002     MINNIE       MOUSE          000-00-0002     Address Number 3              
            (CS) DAFFEY  DUCK           000-00-0003     Address Number 4              
            (CS) BARNIE  RUBBEL         000-00-0004     Address Number 5      
  </code></pre>
  
  <p>In this example the information for (CS) Donald Duck would be moved to Row 2 Columns S thru AI
  (CS) Daffey Duck would move to Row 4 Columns S thru AI. Then (CS) Barnie Rubbel would move to Row 4 Columns AJ to AZ.</p>
  
  <pre><code>Sub MOVECS()
  
  Dim Rng As Range
  
  Set Rng = Range("B2:B6000").Find(What:="*(CS)*", LookAt:=xlWhole, _
                                            LookIn:=xlValues)
  Rng.Resize(1, 17).Cut Rows(1).End(xlDown).Offset(0, 18)
  
  End Sub
  </code></pre>
  
  <p>I tried to add a "Nxt Rng" but that would take my last (CS) record and move it to the second row.</p>