Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
If Intersect(Target, Range("K3")) Is Nothing Then Exit Sub
Range("A11:A" & Range("M65536").End(xlUp).Row).ClearContents
For i = 10 To Range("M65536").End(xlUp).Row
If Cells(i, 15).Value = Cells(3, 11).Value Then
Range("a65536").End(xlUp)(2).Value = Cells(i, 14).Value
End If
Next i
End Sub