Funktion erweiter

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 10 Then Exit Sub
If UCase(Target.Value) = "R" Then
Cells(Target.Row, 5) = Date
End If
End Sub

Ich hätte gerne erweitern, aber das kann ich leider nicht.
Im Spalte 10 möchte ich eintragen “R” oder “E”
Bei eintragen von „R“ ist die Datum im Spalte E (wie oben ist richtig)
Bei eintragen von „E“ soll die Datum im Spalte B erscheinen.
Besten Dank für eine Antwort