|Just to eliminate any sheet name issues, you can use the following version of the code in any sheet. The "Me" designation will always point to the Sheet whose module contains the code. Please remember to delete the other code for that Sheet's module or you will have a conflict.|
That said, without seeing your data, it's hard for me to troubleshoot from afar. Here is what I did:
I put a series of numbers in H9:H36.
I put a bunch of random numbers and text strings in B9:G36.
When I make a change to any value in H9:H36, the entire range is sorted based on Column H.
If this code doesn't work, you will need to provide some detail as to the contents of your range, the process you are following and the results. In other words, the code does what is written to do, so if it doesn't sort your data, the issue is external to the code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H9:H36")) Is Nothing Then
Key:=Range("H9:H36"), SortOn:=xlSortOnValues, _
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.