Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Me.[A4:D4], Target) Is Nothing Then Exit Sub
Me.Range(Me.[I5], Me.[A65536].End(xlUp)).Sort Key1:=Target, Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub