you're welcome.
you may need to find the first blank cell's row number before any copy-paste.
Sub copy_paste_based_on_cell_interior_rgb()
Const blue As String = "R:79 G:129 B:189" 'RGB(79, 129, 189)
Const purple As String = "R:204 G:192 B:218" 'RGB(204, 192, 218)
Dim i As Long, FBlnkRow As Long
FBlnkRow = Worksheets("New Property").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
With Worksheets("MySheet")
For i = 4 To .Range("C" & .Rows.Count).End(xlUp).Row
Select Case rgb_valz(.Range("C" & i))
Case blue, purple
.Range("A" & i & ":P" & i).Copy Worksheets("New Property").Range("A" & Rows.Count).End(xlUp).Offset(1)
.Range("A" & i & ":P" & i).Interior.Color = RGB(255, 0, 255)
End Select
Next i
End With
With Worksheets("New Property")
.Range("A" & FBlnkRow & ":P" & .Range("A" & .Rows.Count).End(xlUp).Row).Interior.Color = RGB(255, 0, 255)
End With
End Sub
Public Function rgb_valz(rng As Range) As String
'Credits: snb
rgb_valz = _
"R:" & rng.Interior.Color Mod 256 & _
" G:" & (rng.Interior.Color Mod 256 ^ 2) \ 256 & _
" B:" & rng.Interior.Color \ 256 ^ 2
End Function