VBA to delete rows based on date

Hi all

I have the following code to delete rows based on dates, but the datea I'm using has over 100,000 records and this is taking forever, is there a fasterway to do this than looping through every line?

    LastRow = Range("A1").End(xlDown).Row
    Do Until ActiveCell.Row = LastRow + 1
    If Range("B" & ActiveCell.Row) < StartDate Or Range("B" & ActiveCell.Row) > EndDate Then
        ActiveCell.EntireRow.Delete
        LastRow = LastRow - 1
    Else
        ActiveCell.Offset(1, 0).Select
    End If
    Loop

I'd thought about using autofilters, but I've heard they can be very unstable...?

thanks in advance