VBA to Copy and Paste Multiple Cells If Meet Criteria
<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>