أعجبنى هذا الكود
Sub Macro()
Range("A6:C15").Select
Selection.Copy
ActiveCell.Range("f1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort _
Key1:=Worksheets("Sheet1").Range("h6"), Order1:=xlAscending, _
Key2:=Worksheets("Sheet1").Range("g6"), Order2:=xlAscending, _
Key3:=Worksheets("Sheet1").Range("f6"), Order3:=xlAscending
End Sub
Sub Macro1()
Range("F6:H15").Select
Selection.ClearContents
Range("F6").Select
End Sub
مرفق ملف به التطبيق