title: VBA cut/paste after inserting row
body: <p>I would really appreciate any help with identifying what's wrong with my VBA code - if I test it, nothing happens to data in the spreadsheet.</p>
  
  <p>I am attempting to take rows which have either two different emails and pull the latter down below the first in a newly-created row (If), or take duplicate emails and delete the latter (ElseIf). </p>
  
  <pre><code>Sub email_List()
  
  a = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 2 To a
  
      If Worksheets("Sheet1").Cells(i, 3).Value &lt;&gt; Worksheets("Sheet1").Cells(i, 9).Value And IsEmpty(Worksheets("Sheet1").Cells(i, 9)) = False Then
          ActiveCell = Worksheets("Sheet1").Cells(i, 1)
          ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
          Worksheets("Sheet1").Cells(i, 9).Cut
          Worksheets("Sheet1").Cells(i + 1, 3).Paste
  
      ElseIf Worksheets("Sheet1").Cells(i, 3).Value = Worksheets("Sheet1").Cells(i, 9).Value Then
          Worksheets("Sheet1").Cells(i, 9).Value.Clear
  
      End If
  
  Next
  
  Application.CutCopyMode = False
  
  End Sub
  </code></pre>