Modified for cleared cells:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Found As Variant
    
    If Not Intersect(Target, Range("C11:H17")) Is Nothing Then
        Application.EnableEvents = False
        Set Found = Range("types").Find(Target.Value)
        
        If Not Found Is Nothing Then
            Found.Copy
            Target.PasteSpecial _
                Paste:=xlPasteFormats
            Application.CutCopyMode = False
            Set Found = Nothing
        Else
            With Target.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With    'target cell interior clear
        End If  'found
    End If  'in validated cells
    Application.EnableEvents = True
End Sub