Another solution using the Change event similar to the proposal of @taller:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, c As Range
    Set rng = Application.Intersect(Target, Me.Columns(1))
    If rng Is Nothing Then Exit Sub
    If rng.Value = vbNullString Then Exit Sub
    Set c = Sheets("Lists").Range("A1").CurrentRegion ' modify as needed
    Target.Value(11) = c.Find(Target.Value, LookAt:=xlWhole).Value(11)
End Sub