Find rows and delete them based on multiple criteria

Well, I assumed the times reside in Column B. If not then replace it with whatever you want in the below code.

Sub DeleteTimes()
Dim h As Double, r As Integer, i As Integer
r = Cells.SpecialCells(xlCellTypeLastCell).Row
With ActiveSheet
    For i = r To 1 Step -1
        h = VBA.Hour(.Range("B" & i)) + 60 * VBA.Minute(.Range("B" & i))
        If h < 7 Or h > 19 Then .Rows(i).EntireRow.Delete
        If h > 10 And h < 16 Then .Rows(i).EntireRow.Delete
    Next
End With
End Sub

Originally Posted by Kelshaer

Well, I assumed the times reside in Column B. If not then replace it with whatever you want in the below code.

Thanks, this seems to be working but it's taking a long time as I've got '000s of rows. Isn't there any way to amend the macro in OP as it uses the Filter which speeds things up? It works when I type one criterion, but not for multiple ones.
EDIT: Something seems to be wrong in the macro you posted with how it handles time as it whittled down 15000 rows to about 80!. when there should be a few thousand.