VBA Help!!! Copy Row to new sheet then delete Row from original sheet

[trackgold]

I have created a workbook to track open and completed work orders. The code below allows for me to move the completed work order from a row on the open sheet to the next available row on the completed sheet by entering "completed". Upon doing this it leaves and open row with one column that says complete. How do i modify the code to delete that row?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("P:P")) Is Nothing Then Exit Sub


If Target.Value = "Complete" Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "O")).Cut _
Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)


End Sub

 

[NdNoviceHlp]

Range(Cells(Target.Row, "A"), Cells(Target.Row, "O")).entirerow.delete

HTH. Dave

 

[trackgold]

I have added the line to show:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("P:P")) Is Nothing Then Exit Sub


If Target.Value = "Complete" Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "O")).Cut _
Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Range(Cells(Target.Row, "A"), Cells(Target.Row, "P")).EntireRow.Delete


End Sub

It then works once but kicks an Run-time erroe' 13':
Type mismatch

I open the debug and the "if target.value="Complete" Then" is highlighted in yellow. Did i place (Range(Cells(Target.Row, "A"), Cells(Target.Row, "P")).EntireRow.Delete) wrong?

 

[NdNoviceHlp]

This...

Range(Cells(Target.Row, "A"), Cells(Target.Row, "P")).EntireRow.Delete

is not the same as...

Range(Cells(Target.Row, "A"), Cells(Target.Row, "O")).EntireRow.Delete

If you delete your target in "P", I'm guessing you get a type mismatch. I'm not sure why you're using "cut" instead of copy if you plan on deleting the row? Dave