اخي فضل جرب هذا الكود
Sub Macro1()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
ActiveWorkbook.Worksheets(WS.Name).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(WS.Name).Sort.SortFields.Add Key:=Range("B2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(WS.Name).Sort
.SetRange Range("B2:B11")
.Apply
End With
Next
End Sub