This For loop deletes rows where the cell value is less than 50 (but slowly)

slowly_deleting_rows_that_are_less_than_50.vb

Option Explicit
Public Sub DeleteRowsLessThanFiftySlowly()
    Dim lngIdx As Long

    For lngIdx = 100000 To 1 Step -1 
        If Cells(lngIdx, 1).Value < 50 Then
            Cells(lngIdx, 1).EntireRow.Delete
        End If
    Next lngIdx
End Sub