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

Sub Test()
    Dim s As String, m As Long, r As Long
    Application.ScreenUpdating = False
        s = Empty: m = Cells(Rows.Count, "A").End(xlUp).Row
        For r = m To 2 Step -1
            If Application.CountIf(Range("A" & m & ":A" & r), Cells(r, 1).Value) <> 1 Then
                If Cells(r, 4).Value = "انقطاع" Or Cells(r, 4).Value = "بلوغ المعاش" Then
                    Rows(r).Delete
                End If
            End If
        Next r
    Application.ScreenUpdating = True
End Sub

السلام عليكم استاذنا الكبير ياسر خليل وكل عام وحضرتك بخير بمناسبة ذكرى المولد النبوى الشريف اشكرك كثيرا على سرعة الإستجابة وهذا ليس بجديد على حضرتك
فى المالف المرفق به عدد متكرر لتواريخ ترك العمل مع مختلف الأسباب لكل موظف فأنا اردت ان اشير الى بعض الأمثله وقمت بالتظليل عليها كمثال وليس حالات بعينها انا اردت أن ارتب تواريخ الإنقطاع من الأقدم الى الأحدث ثم احذف كل الحركات المتكررة لكل موظف ما عدا الحركة للتاريخ الأحدث الأخير له وليس لحالتين فقط ( الانقطاع وبلوغ سن المعاش ) لعلى قد اوضحت لحضرتك الصورة .
وشكرا لحضرتك مرة آخرى .

أخي الكريم أشرف
أعتذر عن المشاركة في الموضوع نظراً لظروف خاصة وأرجو من الأعضاء التواصل في الموضوع ومحاولة المساعدة. وفقكم الله

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

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

 
Sub Delete_Old_Date()
    Dim m As Long, r As Long, WS As Worksheet
    Set WS = ThisWorkbook.Worksheets("آخر حركة انقطاع ")
    Application.ScreenUpdating = False
        m = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row
        For r = 2 To m
            If Application.CountIf(WS.Range("A" & r & ":A" & m), WS.Cells(r, 1).Value) > 1 Then
                WS.Rows(r).Delete
                r = r - 1
            End If
        Next r
    Application.ScreenUpdating = True
End Sub

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

الف مليون شكر لحضراتكم جميعاً يا استاذ/ حسونه حضرتك والاستاذ / ابو عيد
هذا هو المطلوب بالفعل واسف لعدم ردى على الموضوع حال مشاركة حضراتكم لأنقطاع النت لدى
تقبلوا تحياتى ولا حرمنا الله من امثالكم فى هذا المنتدى الكبير وجعل الله هذا العمل فى ميزان حسناتكم الى يوم القيامه

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