VBA- how to delete duplicate rows keep the second row

[RRED]

Team,
I really need help!! Please. I need a VBA code or some way to delete duplicate rows. I want to keep the second one or the last row.
In this example, I have a list of work orders ranging from unique or duplicate numbers. If the work order is unique I leave it alone, if it duplicates in cell b, I look at column E and choose the last row because it's the most recent. Keeping the last one is crucial. The work order is the same so I need to look at column E and keep External and not A-FACLTY .
Thank you in advance

A
B C D E
Order Type WORK Order Bas. start date Description Oper.WorkCenter
PM03 40265394 12/31/2019 365 BOILER SOURCE TEST A-FACLTY
PM03 40265394 12/31/2019 365 BOILER SOURCE TEST External

 

[FuNeS13]

so... External will ALWAYS be the most recent line?

 

[hernantorres23]

Hi, without VBA you can filter this data, but no problem

Book1
	A	B	C	D	E
1	OrderType	WORKOrderBas.	startdate	Description	Oper.WorkCenter
2	PM03	40265394	12/31/2019	365_BOILER_SOURCE_TEST	External
3	PM03	40265399	12/31/2019	365_BOILER_SOURCE_TEST	A-FACLTY
4	PM03	40265400	12/31/2019	365_BOILER_SOURCE_TEST	External
5	PM03	40265400	12/31/2019	365_BOILER_SOURCE_TEST	A-FACLTY
6	PM03	40265394	12/31/2019	365_BOILER_SOURCE_TEST	A-FACLTY
7	PM03	40265400	12/31/2019	365_BOILER_SOURCE_TEST	External
8	PM03	40265980	12/31/2019	365_BOILER_SOURCE_TEST	A-FACLTY
9	PM03	40265459	12/31/2019	365_BOILER_SOURCE_TEST	A-FACLTY
10	PM03	40265700	12/31/2019	365_BOILER_SOURCE_TEST	A-FACLTY
11	PM03	40265700	12/31/2019	365_BOILER_SOURCE_TEST	External
12	PM03	40265459	12/31/2019	365_BOILER_SOURCE_TEST	External
RRED

Here ? my code

Option Explicit
'Hernan Torres, Mikel ERP
'December 10, 2019

Sub check_duplicate_conditional() 'First: mark rows to delete
Dim start_b, rango As Range
Dim i, j As Long
Dim b() As Variant
Dim duplicado, excluir As Boolean

j = 0
Application.ScreenUpdating = False
    Range("B2").Select 'put your own range or get it from workbook, for continuos job
    Set start_b = Range("B" & ActiveCell.Row)
    b = Range(start_b, Cells(Rows.Count, "B").End(xlUp)) 'crea un array y lo guarda en la variable "b"
    Set rango = Range(start_b.Address, start_b.Resize(UBound(b)))
    For i = 1 To UBound(b, 1)
    duplicado = Application.CountIf(rango, (b(i, 1))) > 1
    excluir = Cells(start_b.Row - 1 + i, start_b.Column + 3) = "A-FACLTY"
    
    If (duplicado And excluir) Then
        Cells(start_b.Row - 1 + i, start_b.Column + 6) = 1
        j = j + 1
    End If
    Next
Application.ScreenUpdating = True

Run ("del_duplicate_conditional")
MsgBox j & " row(s) was deleted, from " & UBound(b, 1) & " row(s) checked", vbInformation, "Mikel ERP by htorres"

End Sub


Sub del_duplicate_conditional() 'Second: mark rows to delete
Dim start_b As Range
Dim i As Long
Dim b() As Variant
Dim eliminar As Boolean

Application.ScreenUpdating = False
    Range("H2").Select 'put your own range or get it from workbook, for continuos job
    Set start_b = Range("H" & ActiveCell.Row)
    b = Range(start_b, Cells(Rows.Count, "H").End(xlUp)) 'crea un array y lo guarda en la variable "b"
    
    For i = 1 To UBound(b, 1)
    If Not IsEmpty(ActiveCell.Value) Then
        ActiveCell.EntireRow.Delete
    End If
    If IsEmpty(ActiveCell) Then
    ActiveCell.Offset(1, 0).Activate
    End If
    Next
Application.ScreenUpdating = True

End Sub