Try this in your Sheet2 module:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents=False
OBigO
Application.EnableEvents=True
End Sub
Sub OBigO(): Dim R As Range
Set R = Sheets("Sheet2").UsedRange
R.Sort Key1:=Range("K1"), Header:=xlYes, Order1:=xlDescending
R.Sort Key1:=Range("J1"), Header:=xlYes, Order1:=xlDescending
R.Sort Key1:=Range("I1"), Header:=xlYes, Order1:=xlDescending
R.Sort Key1:=Range("H1"), Header:=xlYes, Order1:=xlDescending
R.Sort Key1:=Range("G1"), Header:=xlYes, Order1:=xlDescending
R.Sort Key1:=Range("D1"), Header:=xlYes, Order1:=xlDescending
End Sub
* And save the book as macro-enabled
Bookmarks