title: VBA to Copy and Paste Multiple Cells If Meet Criteria
body: <p>how to move cells if criteria is met following also the cells right next to it using loop?
  say the criteria is (Len=43) &lt;- Acct#</p>
  
  <pre><code>Column#  |Date     |  Country   |  Acct#   |   Fruit     |   Price   |  Qty  
  1        |11/02/16 |  India     |  5002xxx |   apple     |   $9      |   5  
  2        |12/02/16 |  5001xxx   |  Orange  |   $8        |   10      |
  </code></pre>
  
  <p>I need to move the column 2 acct# to it's right column following the columns right next to it. how to use it with loop and  len? what is the better approach? Thanks and cheers!</p>
  
  <p><strong>Update</strong></p>
  
  <pre><code> Sub Findandcut2()
      Dim row As Long
  
      For row = 2 To 1000
  
          If Range("M" &amp; row).Value Like "*5027.1227000.0000.0000.000.0000.0000.0000*" Then
  
              Range("N" &amp; row).Value = Range("M" &amp; row).Value
              Range("M" &amp; row).Value = ""
          End If
      Next
  
  End Sub
  </code></pre>
  
  <p>so in Column M is where the Acct# is stored and the following cells right next to it I have to offset but with the code above I've got is just deleting the value is Column N and the cells right next to it is not moving.</p>