Paste contents into cell that has color

[yujin]

Hi, jwdesselle

I have modified your code like below.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("C3:I26,C30:I50")) Is Nothing Then Exit Sub
    
    Dim Cell As Range
    Cancel = True
    For Each Cell In Range("K" & Target.Row).Resize(, 3)
        If Cell.Interior.ColorIndex = 15 Then
            Cell.Value = Target.Value
            Exit For
        End If
    Next Cell
End Sub