وعليكم السلام أخي الكريم
لا يوجد سوى ورقة واحدة فقط في الملف المرفق .. ارفق الملف بشكل صحيح

السلام عليكم أخي الكريم
قم بإنشاء ورقة عمل باسم Output وجرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim ws As Worksheet, sh As Worksheet, i As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        Set sh = ThisWorkbook.Worksheets("Output")
        sh.Cells.Clear
        ws.Range("A1").CurrentRegion.Copy sh.Range("A1")
        With sh.Range("A1").CurrentRegion
            .Sort .Cells(1), xlAscending, , , , , , xlYes
            For i = .Rows.Count + 1 To 3 Step -1
                If sh.Cells(i, 1).Value <> sh.Cells(i - 1, 1).Value Then
                    Rows(i).EntireRow.Insert.
                    .Cells(i, 1).Resize(1, .Columns.Count).Interior.ColorIndex = 6
                    .Cells(i, 1).Value = "Total"
                    .Cells(i, .Columns.Count).Formula = "=SUMIF(A2:A" & i & ",A" & i - 1 & ",E2:E" & i & ")"
                End If
            Next i
        End With
    Application.ScreenUpdating = True
    MsgBox "Done...", 64, "YasserKhalil Excel-Egy"
End Sub

اخي ياسر شكرا كودك رائع ولكن احتاج الى تعديل بسيط قد يتم اضافة بيانات جديدة لنفس الاصناف واريدها عند الترحيل تتغير في ورقة المخرجات على سبيل المثال
كان لدي بيانات بخصوص الصنف aa ثلاث صفوف تم ترحيلها ثم اضفة بيانات جديدة لنفس الصنف ورحلتها مرة ثانية لا تظهر واذا قمت بادراج بيانات جديدة يتم اظهار اول سطر من البيانات واخفاء باقي الصفوف لا ادري ما المشكلة

الكود يعمل حتى مع إضافة بيانات جديدة حيث يقوم الكود بمسح المخرجات كلها والبدء من جديد في كل مرة ، حيث يقوم بالنسخ للنطاق بالكامل ثم يضعه في ورقة المخرجات ثم يتعامل مع النطاق المنسوخ في بقية الأسطر ..

اخي ياسر قمت بتطبيقه على ملف اخر ولكن دون جدوى ارفق لك الملف قد تعرف الخلل اين

رجاءاً على جميع الأعضاء عدم رفع اى خلل او مشكلة بالحل الا بعد التجربة أكثر من مرة وياحبذا لو على اكثر من جهاز .. فكود استاذنا الكريم ياسر يعمل بكل كفاءة وكما تريد بالضبط وشكل النتائج كما تريدها
وشوف بنفسك اليس هذه هى النتائج التى تريد اظهارها بصفحة Output

INSERT.xlsm

اخي علي هل قمت باي تعديل على الملف بصراحة هذا لغز نفس الملف الذي ارفقته الان يعمل والله شيء محير لقد قمت بتجربته قبل ما ارفقه وعندما اضيف بيانات جديدة كان يحدث خلل في ترتيب البيانات بل واخفاء بعضها
اود ان اشكر اخي ياسر على هذا الكود الرائع سلمت يداك وجعله الله في ميزان حسناتك

اخي ياسر بعد اذنك اريد فهم بعض الاسطر في الكود وتتبعته الى ان وصلت الى استخدام اداة WITH لو لم نستخدم اداة WITH اريد ان اعرف المضلل بالاحمر ماذا يوجد قبلها بالاضافة الى ماذا تعني الفواصل
. Sort . Cells (1), xlAscending, , , , , , xlYes.
الى ماذا يشير رقم 3 و -1
For i = .Rows.Count + 1 To 3 Step -1
الى ماذا يشير رقم -1
If sh.Cells(i, 1).Value <> sh.Cells(i - 1, 1).Value Then
لماذا لم نجعلها تساوي بدلا لا تساوي حتى تصبح هكدا
If sh.Cells(i, 1).Value = sh.Cells(i - 1, 1).Value Then

بارك الله فيك أخي الكريم والشكر موصول للأخ علي النشيط والخدوم دائماً
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات