ارجو التعديل على كود حذف صفوف مكرره

[الـعيدروس]

السلام عليكم

احبابي مشرفين واعضاء وزوار منتدانا الحبيب

لدي كود حذف صف الكود المكرر

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

D , E

ويلصقها بالصف الباقي الشبيه الذي لم يحذف

هذا مااراه ومن لديه فكره اسهل تتماشى مع مااريده

هذا هو الكود

Sub abood()

lastr = [A10000].End(xlUp).Row

For i = 4 To lastr

If Cells(i, "c") <> "a" Then

Range("A" & i & ":c" & i).Copy (Sheets("ص").[A10000].End(xlUp).Offset(1, 0))

End If

Next i

aal = [A10000].End(xlUp).Row

For g = 4 To aal

If Sheets("فترة صباحية").Cells(g, 4) <> "" Then

Sheets("ص").Cells(g, 2).Offset(-1, 3).Value = "غ"

End If

Next g

Application.ScreenUpdating = False

ddd = [A10000].End(xlUp).Row

For abood = 3 To ddd

If Sheets("ص").Cells(abood, 2) = Sheets("ص").Cells(abood, 2) Then

Sheets("ص").Cells(abood, 2).EntireRow.Delete

End If

Next abood

On Error Resume Next

Application.ScreenUpdating = True

End Sub

ارجو الرد من خبراء الاكواد

لاني من يومين احاول اعدل عليه ولم انجح بحاولاتي

اساس الكود للاستاذ طارق محمود جزاه الله كل خير