Here's a VBa way also
![]()
Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Application.Intersect(Target, Range("N6:N9")) If Not isect Is Nothing Then Range("M6:N9").Sort Key1:=Range("N6"), Order1:=xlDescending Exit Sub End If 'add code for each range as above (It's all done in example sheet) End Sub
See attached file
Bookmarks