Using multiple events in Private Sub Worksheet_Change

Hi,
I have a Worksheet_change event which allows me to add more than one entry from a data validation list into the active cell in Column U. This works fine.

I also need to add a second change event so that if a cell is selected in Column A of the active sheet, it puts the value of that cell in B1 of the 'Pricing Calculator' sheet. On its own, that bit of code also works. However with the combined the code below, only the multiple drop down entries work, regardless of the order in which I have the two bits of code. I'm not seeing where it's preventing from running the 'transfer cell content to other sheet' bit.

Many thanks

Tania

Private Sub Worksheet_Change(ByVal Target As Range)


Application.ScreenUpdating = False
Application.EnableEvents = False

' To Select Multiple Items from a Drop Down List in Excel

Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub

If Not Intersect(Target, Range("U:U")) Is Nothing Then
If Target.Column = 21 Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & "; " & Newvalue
Else:
Target.Value = Oldvalue
End If
End If

End If

End If
End If

'Take value in selected cell in Column A and put it in "B1" on another sheet

If Not Intersect(Target, Range("a:a")) Is Nothing Then
Sheets("Pricing calculator").Range("B1").Value = Target.Value
End If

Exitsub:
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub