Hi
I have code auto sort but not work good i need edit it
Please
Private Sub Worksheet_Calculate()
Dim c As Range
Set rg = Range("I7:I" & Rows.Count) 'Column containing names to sort
Range("B7:Q" & Rows.Count).Sort Key1:=rg, _
Order1:=xlDescending, _
Header:=xlNo
End Sub