Autosort

I am having problems with an 'autosort'. When the values in h4 change, h4 sorts appropriately. The text seems to sort with it..however I have 3 dropdown boxes in D, F, M that are not sorting with the rest of the row. Can you help?

Private Sub Worksheet_Change(ByVal Target As Range)
Range("b4:m25").Select
   Selection.Sort Key1:=Range("h4"), Order1:=xlDescending, Header:=xlNo, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal  
End Sub

Attached is a sample showing the before and after of the problem and the code.