Sub Test()
    Dim LastRow As Long, I As Long, J As Long
    Dim EmployeeName As String, SellDate As Date
    Dim rownum As Long
    Dim FoundRange As Range
    
    
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    For I = 2 To LastRow - 1
        'get employee name from column A and Sell date from Column C
        EmployeeName = Range("A" & I).Value
        SellDate = Range("C" & I).Value
        For J = 1 To LastRow - 1
            'find an instance of Employee name
            Set FoundRange = Range("A" & I + 1 & ":A" & LastRow).Find(EmployeeName)
            If Not FoundRange Is Nothing Then
                'if found r date is less than initial date delete the 2nd record
                If FoundRange.Offset(0, 2).Value < SellDate Then
                    FoundRange.EntireRow.Delete
                    LastRow = LastRow - 1
                ElseIf FoundRange.Offset(0, 2).Value = SellDate Then
                    'do something else no indicator
                Else
                    'otherwise delete the inital range and reset sell date
                    SellDate = FoundRange.Offset(0, 2).Value
                    Range("A" & I).EntireRow.Delete
                    FoundRange.EntireRow.Cut
                    Range("A" & I).Insert
                    LastRow = LastRow - 1
                End If
            Else
                Exit For
            End If
        Next J
    Next I
        
End Sub