Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [M4]) Is Nothing Then
Dim L%, C%
If [K4] = "" Then Exit Sub
If [I4] = "Bovin" Then
L = Application.Match([K4], [F10:F64], 0): C = 8
Else
L = Application.Match([K4], [L10:L37], 0): C = 14
End If
Application.EnableEvents = False
Cells(L + 9, C) = Target
[K4:M4].ClearContents
End If
Fin:
Application.EnableEvents = True
End Sub