Autosort in draaitabel werkt niet goed (VBA)

[BeNL]

Goedemiddag allemaal,

Ik heb een stukje VBA in dit tabblad om wijzigingen in tabblad Macro, automatisch te sorteren op "Project" in pickinglist:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
Range("A6").Sort Key1:=Range("A5000"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Als de brongegevens veranderen, werkt de functie echter niet...Als ik in het tabblad "Pickinglist" 1 cijfer in kolom "Project" wijzig, dan sorteert hij de gegevens pas...

Wat zie ik over het hoofd?

Alvast bedankt,
Ben