Right hand click your sheet tab
and choose view code..
now paste in the below code (Theres probably a quicker way, but the below works fine.. It works when you type in column E rows 2 - 200)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("E2:E200")
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
On Error Resume Next
Target.Offset(0, 1) = Target.Value
Target.Offset(0, 1).Replace What:=Range("A2").Value, Replacement:=Range("B2").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A3").Value, Replacement:=Range("B3").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A4").Value, Replacement:=Range("B4").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A5").Value, Replacement:=Range("B5").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A6").Value, Replacement:=Range("B6").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A7").Value, Replacement:=Range("B7").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A8").Value, Replacement:=Range("B8").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A9").Value, Replacement:=Range("B9").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A10").Value, Replacement:=Range("B10").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A11").Value, Replacement:=Range("B11").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A12").Value, Replacement:=Range("12").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A13").Value, Replacement:=Range("B13").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A14").Value, Replacement:=Range("B14").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A15").Value, Replacement:=Range("B15").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A16").Value, Replacement:=Range("B16").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A17").Value, Replacement:=Range("B17").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A18").Value, Replacement:=Range("B18").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A19").Value, Replacement:=Range("B19").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A20").Value, Replacement:=Range("B20").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A21").Value, Replacement:=Range("B21").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A22").Value, Replacement:=Range("B22").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A23").Value, Replacement:=Range("B23").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A24").Value, Replacement:=Range("B24").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A25").Value, Replacement:=Range("B25").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A26").Value, Replacement:=Range("B26").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Target.Offset(0, 1).Replace What:=Range("A27").Value, Replacement:=Range("B27").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End If
End Sub