I did some homework and found this piece of code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cancel = True
Columns("A").Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
To implement it ; right click the sheet's tab, click view code - Copy paste the code in the window that opened - then save it.
The code only works for col A
Each time you add a row to that col, it will autosort on exit
Bookmarks