طلب كود الغاء سطر بالكامل عند تشابه خلايا معينة مع سطر اخر

[مختار البركاني]

السلام عليكم ورحمة الله وبركاته

في المرفق مثال لعمل فاتورة 

في هذه الفاتورة يتم ادخل بيانات حركة سيارات النقل 

ويتم الادخال حسب كل حركة على حدة 

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

ارجو التكرم بالمساعدة 

ورقة عمل Microsoft Excel جديد.rar

[سليم حاصبيا]

جرب هذا الماكرو

Sub Del_Duplicates()
Dim my_rg As Range
Dim r%, t%, i%
If ActiveSheet.Name <> "ورقة1" Then GoTo 1
Application.ScreenUpdating = False
Set my_rg = Range("f21").CurrentRegion
r = my_rg.Rows.Count
Set my_rg = my_rg.Offset(1).Resize(r - 1)
r = my_rg.Rows.Count
 On Error Resume Next
my_rg.Columns(3).SpecialCells(4).EntireRow.Delete
 On Error GoTo 0
  ActiveSheet.Range(my_rg.Address).RemoveDuplicates Columns:=Array(2, 3, 4, 5, 7), _
        Header:=2
     Set my_rg = Range("f21").CurrentRegion
   r = my_rg.Rows.Count

Cells(r + 21, "f") = ":الاجمالي"
Cells(r + 21, "n").Formula = "=sum(n22:" & "n" & r + 20 & ")"
Cells(r + 21, "o").Formula = "=sum(o22:" & "o" & r + 20 & ")"
Cells(r + 21, "p").Formula = "=sum(p22:" & "p" & r + 20 & ")"
 For i = 1 To r - 1
  my_rg.Cells(i + 1, 1) = i
  Next
1:
Application.ScreenUpdating = True
End Sub

 

[مختار البركاني]

شكرا استاذ سليم حاصبيا

جاري التجريب

استاذي الفاضل

الماكرو حذف الاسطر التي لا يوجد بها بيانات و اضهر لي اجماليات 

بينما المطلوب 

 

المطلوب طالما التسلسل رقم 1 و3 و 5 بياناتهم متشابهة يتم الغاء السطر 3 و السطر 5 ويضاف الى الخلية k23  رقم مقابل كل سطر تم الغاءه بيحث يتغير الرقم من 1 الى 3 وكذالك بالخلايا المتشتابهه الاخرى

تقبل تحياتي