أخ سمارت كل التحية و التقدير
جرب ما يلي
Sub frsm()
Range("a2:C500").Select
Selection.Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
و يمكنك تغيير الرينج حسب حاجتك