[m.n.hakami]

توصلت للحل واضعه هنا للفائده 

كود :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A23:AA1022").Activate
   ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _
       "H23:H1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _
       "E23:E1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   With ActiveWorkbook.Worksheets("نظام السرعه").Sort
       .SetRange Range("A23:AA1023")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
     Range("E10").Activate
End Sub