I need help edit code auto sort

[etheer]

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

[Teeroy]

More information is required. What is it doing / not doing that you want?