Delete dates not within a date range

Originally Posted by BowHunter09

Thank you AlphaFrog

When I run the I get a "runtime error 1004" at this line

"Range("F2:F" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete".

I have attach my files to this thread.

Try this...

    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    Range("F1:F" & LastRow).AutoFilter 1, "<" & lStart, xlOr, ">=" & lEnd + 1
    Range("F2:F" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = True