السلام عليكم
اخي العزيز القائمة التي ظللتها بالاصفر هي مفروزة بشكل جيد ولكن على أساس (الأساسي القديم )
وذلك حسب الشرط المحدد في كود الفرز
لاحظ النطاق Range("J7:J1000
Range("H7:K1000").Select
ActiveWorkbook.Worksheets("ßÔæÝ").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ßÔæÝ").Sort.SortFields.Add Key:=Range("J7:J1000"), _