Copy + Paste Only New Unique Rows

Maniacb thank you for your time.

Close enough but this is taking into account only the color and not the date. So if we have lets say a Red for 10/5 which will successfully go to Checked sheet, any other Red will fail to be moved.

I have updated the code so removing duplicates should take into account both color and date

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