codice:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Columns("A").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
Range("A65536").End(xlUp).Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub