الاخ ابا اسماعيل
يمكن ذلك من خلال التعديل على الكود ليصبح هكذا:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >7 or Target.Column<3 Then Exit Sub
Columns(Target.Column).Sort _
Key1:=Cells(1, Target.Column), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub