Copy + Paste Only New Unique Rows

The attached code works well on what it is intended to do.

Rows enter the Incoming sheet via a web query. Then these rows are sorted by removing duplicates and move to Checked sheet. This is where help is needed.

As Incoming sheet will be updated every 30 minutes or so, eventually after the first, second or even third refresh, the same rows are going to be moved to Checked Sheet again and again.

Is there a way to prevent this from happening.

Thank you in advance!

See if this code will do what you wish

Sub ColorCheck()
Dim r As Long, i As Long
Dim Lastrow, lr1 As Long, lr2 As Long
Dim rs1 As Worksheet, rs2 As Worksheet, rs3 As Worksheet
Dim y As Date
Dim dict As Object

Set dict = CreateObject("Scripting.Dictionary")
y = Now
Set rs1 = Sheets("Incoming")
Set rs2 = Sheets("Checked")
Set rs3 = Sheets("Archived")

ActiveWorkbook.RefreshAll
Application.ScreenUpdating = False

Lastrow = rs1.Range("A" & Rows.Count).End(xlUp).Row '

    rs1.Range("$A$1:$B" & Lastrow).RemoveDuplicates Columns:=1, Header:= _
        xlYes

lr1 = rs1.Range("A" & Rows.Count).End(xlUp).Row
lr2 = rs2.Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To lr2
    If Not dict.exists(rs2.Cells(i, 1).Value) Then
        dict.Add rs2.Cells(i, 1).Value, i
    End If
Next i

For r = 1 To lr2

If rs2.Cells(r, "B") < y Then
    rs2.Cells(r, "A").EntireRow.Copy Destination:=rs3.Range("A" & Rows.Count).End(xlUp).Offset(1)
    rs2.Cells(r, "A").EntireRow.Delete
    
End If

Next r

For r = 1 To lr1
        If (rs1.Cells(r, "A") = "Green" Or rs1.Cells(r, "A") = "Red") And Not dict.exists(rs1.Cells(r, "A").Value) Then
            rs1.Cells(r, "A").EntireRow.Copy Destination:=rs2.Range("A" & Rows.Count).End(xlUp).Offset(1)
        End If
Next r

Application.ScreenUpdating = True

End Sub

Because i am afraid that if i overwrite that sheet, then the checks made by those two people will be mixed up.

That is correct.
So the Incoming sheet will be updated every like 30 minutes through a web query.
Duplicates based on color and time will be removed and only one row will go to Checked. If that specific combination (color + time) already exists in Checked it should not be transferred .
Then two people will check that entry and once the time elapses row will be moved to Archived.
Thank you