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