Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, ActiveSheet.Range("A15:A36")) Is Nothing Then
If Target.Cells.Count = 1 Then
If Target.Value <> "" Then
ActiveSheet.Range("C" & Target.Row).Value = Application.WorksheetFunction.VLookup(Target.Value, ActiveSheet.Range("O2:P18"), 2, False)
Else
ActiveSheet.Range("C" & Target.Row).Value = ""
End If
End If
End If
End Sub