Copy And Paste Data With Imposing Condition From One Worksheet To Other

I need to copy and paste data with imposing a condition from one worksheet to the other. I also need a code to update an existing condition.

Code:

Sub COPYPASTEDATA()
Dim rcnt As Variant, i As Long, j As Long
rcnt = Range("A" & Rows.Count).End(xlUp).Row
j = 4
For i = 2 To rcnt

[Code] ........

The procedure does not update the changed condition ( I have pass/fail as condition). Once you run this macro, the data will be pasted but when you change a condition from "fai" to "pass". The pasted data in sheet 3 is not updated. I either need worksheetchange procedure or maybe a code to delete (refresh) sheet 3 data before running the existing macro.

I have Name, location, status (pass/fail) and comment in columns A, B, C, D in sheet 1.