Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.[E11:E16], Target) Is Nothing Or Target.Count <> 1 Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target.Value = Me.[C6:C9].Rows(WorksheetFunction.Match(Target.Value, Me.[D6:D9], 0))
Application.EnableEvents = True
End Sub