Cut and Paste entire row to new worksheet based on criteria in 1 cell

I currently have a piece of code run from a button which looks at the value in column 7 of a worksheet, if the column = "Completed" the code will then select the entire row and delete it.

What I would like the code to do instead is simply cut and paste the row to the next empty row of a new worksheet then delete the empty row left by the original.

Current code is:

For i = 2 To 199

If ActiveSheet.cells(i, 7).Value = "Completed" Then
cells(i, 7).EntireRow.Delete

i = 1 + i
End If
Next i

End Sub

All suggestions much welcomed
Many thanks
KS