Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
p = Application.Match(Target.Value, Application.Index([matable], , 1), 0)
If Not IsError(p) Then
Application.Index([matable], p, 3).Copy Target.Offset(0, 2)
End If
End If
End Sub