delete row if timestamp is less then the stated timestamp

[SWAY14]

Hello,
So I have VBA code that deletes rows if its not current date. Im trying to modify it to delete if timestamp is less than stated timestamp. but the issue is that it also deletes timestamps greater then the stated timestamp.

this is the code
Option Explicit
Sub testtime()

Application.ScreenUpdating = False

Dim i As Long, lr As Long, ws2 As Worksheet
Set ws2 = Sheets("Sheet2")
lr = ws2.Range("A" & Rows.Count).End(xlUp).Row

For i = lr To 2 Step -1
If ws2.Cells(i, 1).Value < ("17:00:00") Then
ws2.Cells(i, 1).EntireRow.Delete
End If
Next i

Application.ScreenUpdating = True

End Sub

this is what my table stamp time is

any suggestions or help is greatly appreciated

 

[bebo021999]

Like this?
use TIME(17,0,0) for timestamp "17:00:00"
Employ column ZZ to write value, then delete

Option Explicit
Sub timestamp()
Dim lr&, ws2 As Worksheet
Set ws2 = Sheets("Sheet2")
Application.ScreenUpdating = False
lr = ws2.Cells(Rows.Count, "A").End(xlUp).Row
With ws2.Range("Zz2:Zz" & lr)
    .Value = Evaluate("=1/(MOD(A2:A" & lr & ",1)-TIME(17,0,0)>=0)")
    .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
    .ClearContents
End With
Application.ScreenUpdating = True
End Sub