DeleteUsingForLoop.bas

Sub DeleteUsingForLoop()
    Dim rowIndex As Long
    Application.ScreenUpdating = False
    With Sheet1
        .Range("D1") = Now
        For rowIndex = 40000 To 1 Step -1
            If .Range("A" & rowIndex).Value < 0.1 Then
                .Range("A" & rowIndex).EntireRow.Delete
            End If
        Next
        .Range("E1") = Now
    End With
    Application.ScreenUpdating = True
    MsgBox "Done"
End Sub