Paste contents into cell that has color

[paulked]

Or

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Long
    If Intersect(Target, Range("C3:I26,C30:I50")) Is Nothing Then Exit Sub
    For i = 11 To 13
        If Cells(Target.Row, i).Interior.ColorIndex = 15 Then Cells(Target.Row, i) = Target
    Next
    Cancel = True
End Sub