Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlg As Long
derlg = ActiveSheet.Range("A65536").End(xlUp).Row
If Not Intersect(Target, Range("Z2:Z" & derlg)) Is Nothing _
And Target.Count = 1 Then
Range("A2:Z" & derlg).Sort Key1:=Range("Z2:Z" & derlg)
End If
End Sub