VBA macro that this will be able to automatically search and delete row

[HELIWTIS]

Hello everyone

I want your help.
I try to make a VBA macro that this will be able to automatically search for the word TRD in the column and check from column E if the total time is less than 00:03:00 then delete the entire row where the specific TRD is located.

 

[bebo021999]

Maybe:

Option Explicit
Sub Test()
Dim lr&, i&, rng
Application.ScreenUpdating = False
On Error Resume Next
lr = Cells(Rows.Count, "B").End(xlUp).Row
rng = Range("B2:E" & lr).Value2
For i = 1 To lr - 1
    If rng(i, 1) = "TRD" And rng(i, 4) < TimeValue("00:03:00") Then rng(i, 1) = "#N/A"
Next
Range("B2:E" & lr).Value = rng
Range("B2:B" & lr).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
Application.ScreenUpdating = True
End Sub