Move row from sheet 2 to sheet 3 and reverts when required

[Anar1046]

Hi,
I have a spreadsheet Sheet 2 (called Punch List) and sheet 3 (called Items Completed ) both listing tasks with the list of a separate row; Column C lists the status of the Task, with the status being chosen from a drop-down list either Outstanding or Complete. Outstanding tasks indicates the yellow color and once chosen Complete from C drop-down list the color changes to white
I would like to have a macro that will copy the entire row and paste into Sheet 3 (called Items Completed ) when the status is changed to Complete and clear the contents of the cells on Sheet 2. reverts from sheet 3 to sheet 2 when chosen outstanding from C collum
The aim of this being of course to have all Outstanding tasks on sheet 2 and all Completed on sheet 3.

Column A-O
Row a lot, no specific numbers

Can someone help me)))

Thanks in advance

 

[MrTomasz]

try this:

Punch List worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastrow As Integer
    Dim cell As Range
    For Each cell In Target
        If cell.Value = "Completed" Then
            With Sheets("Items Completed")
                lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
                cell.EntireRow.Copy .Range("a" & lastrow + 1)
                cell.EntireRow.Delete
            End With
        End If
    Next cell
End Sub