Ok this is hard to explain in the title and honestly I'm not sure what to write for it. Here is the setup and what I need it to do if possible.
When an inspector clicks on the results column and picks "FAILED" or "DAMAGED" when on the "INITIATING DEVICES" page that device and information will be copied to the "FAILED DEVICES" page at the next available row, this is done automatically with no user input. Now if the inspector were to go to the "FAILED DEVICES" page and select that failed device from and change the results to "PASS" or "REPLACED" or "REPAIRED" etc it would be removed from the "FAILED DEVICES" page and the status would be updated on the "INITIATING DEVICES" page. I have the first part working but can not figure out how to get it to work in reverse. Have been messing with compare commands but with no luck.

Here is the setup on both pages
Column A = Address
Column B = Device type
Column C = Location
Column D = Part #
Column E = Results (drop down list to choose from)
Column F = Notes (yes / no)
Column G = Msg. Chg. (yes / no)
Column H = Sens

Only columns A to E need to be brought to the other page,

here is the code on the "INITIATING DEVICES" page

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 7 And UCase(Target.Value) = "YES" Then
        Sheets("MESSAGE CHANGES").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3) = Sheets("INITIATING DEVICES").Cells(Target.Row, 1).Resize(, 3).Value
        Application.Goto Sheets("MESSAGE CHANGES").Cells(Rows.Count, 1).End(xlUp).Offset(, 3)

    End If
    
    
     If Target.Column = 6 And UCase(Target.Value) = "YES" Then
        Sheets("DEVICE NOTES").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3) = Sheets("INITIATING DEVICES").Cells(Target.Row, 1).Resize(, 3).Value
        Application.Goto Sheets("DEVICE NOTES").Cells(Rows.Count, 1).End(xlUp).Offset(, 3)

    End If
    
    
     If Target.Column = 5 And UCase(Target.Value) = "FAIL" Or Target.Column = 5 And UCase(Target.Value) = "DAMAGED" Then
        Sheets("FAILED DEVICES").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3) = Sheets("INITIATING DEVICES").Cells(Target.Row, 1).Resize(, 3).Value
     
    
    End If
Thanks for any help, already have learned so much from reading and messing around