title: VBA code for moving cells from one column to another based on specific cell criteria
body: <p>I've seen several questions asking about moving cells from one workbook to another or one sheet to another using VBA, but I'm hoping to move information from one column to another in the same sheet based on specific criteria. </p>
  
  <p>I wrote this code to move cells from column A if they contained the word "save" to column I in the same sheet:</p>
  
  <pre><code>Sub Findandcut()
      Dim rngA As Range
      Dim cell As Range
  
      Set rngA = Sheets("Jan BY").Range("A2:A1000")
      For Each cell In rngA
          If cell.Value = "save" Then
              cell.EntireRow.Cut
              Sheets("Jan BY").Range("I2").End(xlDown).Select
              ActiveSheet.Paste
          End If
      Next cell
  
  End Sub
  </code></pre>
  
  <p>But, while this macro doesn't display any errors when I run it, it also doesn't seem to do much of anything else, either. Nothing is selected, cut, or pasted. Where in the code did I go wrong?</p>