Sub test()
Dim i
Application.ScreenUpdating = False
If Not Range("a:a").Find("**??:??:??*") Is Nothing Then
i = Range("a65536").End(xlUp).Row
Range("A1:A" & i).AutoFilter Field:=1, Criteria1:="=**??:??:??*"
Rows("2:" & i).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveCell.AutoFilter
End If