Excel VBA to Delete Rows Based on Date & Time

[browncountry]

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD="align: center"]F
[/TD]
[TD="align: center"]G
[/TD]
[/TR]
[TR]
[TD="align: center"]1
[/TD]
[TD="align: center"]DATE
[/TD]
[TD="align: center"]TIME
[/TD]
[/TR]
[TR]
[TD="align: center"]2
[/TD]
[TD="align: center"]2/19/2019
[/TD]
[TD="align: center"]18:00
[/TD]
[/TR]
[TR]
[TD="align: center"]3
[/TD]
[TD="align: center"]2/19/2019
[/TD]
[TD="align: center"]23:20
[/TD]
[/TR]
[TR]
[TD="align: center"]4
[/TD]
[TD="align: center"]2/19/2019
[/TD]
[TD="align: center"]3:30
[/TD]
[/TR]
[TR]
[TD="align: center"]5
[/TD]
[TD="align: center"]2/20/2019
[/TD]
[TD="align: center"]6:30
[/TD]
[/TR]
[TR]
[TD="align: center"]6
[/TD]
[TD="align: center"]2/20/2019
[/TD]
[TD="align: center"]7:00
[/TD]
[/TR]
[TR]
[TD="align: center"]7
[/TD]
[TD="align: center"]2/20/2019
[/TD]
[TD="align: center"]8:00
[/TD]
[/TR]
</tbody>[/TABLE]

I'm having trouble deleting rows based on date & time. I have a report that exports transaction dates and times in Columns F & G respectively. Time exports as a text field. The idea is to delete rows from the earlier (MIN) date that are less than Time Value 20:00 and all rows from the latter date (MAX) greater than Tim Value 6:30.

I am able to create formulas to mark these rows, but I just don't know how to translate that to VBA code.

These are formulas I created to mark rows to KEEP.
=IF(AND(F2=MIN(F:F),TIMEVALUE(G2)>TIMEVALUE("20:00")),"x","")
=IF(AND(F2=MAX(F:F),TIMEVALUE(G2)<timevalue("6:30")),"x","")


In my example, Rows 3-5 would not be deleted. This comes from and 3rd shift production report so dates vary. That's why I figured MIN and MAX functions could be incorporated. Please help. Thanks!</timevalue("6:30")),"x","")

 

[Col Delane]

Have you considered:

1. Creating an Excel Table in a template worksheet that contains:
   1. your formula to flag rows for deletion (that should auto replicate in the Table to cover any additional data rows)
   2. columns for your new data
2. Paste your new data into the template
3. Apply filter to "Delete These" column where value = "X"
4. Select all visible rows in the table (should only be those to delete)
5. Select "Visible cells only" (F5 [Goto], Special, Visible cells only) >> you can also add a built-in button for this command to your QAT
6. Delete rows
7. Clear filter

If you don't have to do this task very often, the above doesn't take much time to do manually, avoiding the need for VBA.