title: Macro to copy a row to new Columns if cell marked complete
body: <p>Im trying to learn how to write a macro for when cells in column H are marked "Complete" it copies the entire row and pastes it in a new page called "complete" and deletes the row from my current page. </p>
  
  <p>I tried recording it myself but kept breaking it. I have no clue if I'm doing this right. </p>
  
  <p>This is my code so far:</p>
  
  <pre><code>Sub Completed_Move()
      ' Completed_Move
      Macro Dim srchrng As Range, row As Range
  
      Set srchrng = Range("H1,H500")
      'For each cel in srchrng
      If InStr(1, cel.Value) = Complete Then
          Activecell.Offset(0, -7).Range("A1:N1").Select
          Selection.Cut
          Sheets("Completed").Select
          Activecell.Select
          ActiveSheet.Paste Sheets("Current").Select
          Activecell.Rows("2:1").EntireRow.Select
          Selection.Delete Shift:=xlUp
          Activecell.Offset(2, 7).Range("A1").Select
      End if
  End Sub
  </code></pre>