title: Conditional Cut and Paste a selected row to a different sheet
body: <p>I have the following formula that searches for rows with the text 'Completed' in collumn C on 'Live and pipeline'sheet. if that condition is met, cut and paste the whole row to the 'Completed' Sheet in the same workbook. There should be no empty rows in Sheet1 after this procedure. </p>
  
  <p>At the moment I am getting <code>Application Run time error 1004, Application defined or object defined error</code> on line <code>Selection.Cut Shift:=xlUp</code>. The whole code is in Module1. Can anyone tell me what's gone wrong here?</p>
  
  <pre><code>Sub Completed_Projects()
  '
  ' Move completed projects to the Completed Tab
  '
  '   Search until an empty cell is reached
  Dim Row As Integer
  Row = Range("Total_Completed").Row
  Dim SumRow As Integer
  
  Application.ScreenUpdating = False
  For Each Cell In ActiveSheet.Range("C8:C100").Cells
      If Cell.Value = "Completed" Or Cell.Value = "Aborted" Then
         Rows(Cell.Row).Select
         Selection.Cut Shift:=xlUp
  
         ' Paste Selection
         Reference = "A" &amp; Row
         Application.Goto (ActiveWorkbook.Sheets("Completed").Range(Reference))
         Range(Reference).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
         ActiveSheet.Paste
  
         ' Update Counters and go back to Live sheet
         Sheets("Live and pipeline").Select
         Row = Row + 1
      End If
  Next Cell
         Application.ScreenUpdating = True 
  '
  End Sub
  </code></pre>