Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Range("A1:D4").Select 'this is the sort range
Selection.sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Target.Select
End Sub