Run 13 Different Sheets Each With 50k Rows

It has to run on 13 different sheets each with 50k rows. Right now its taking nearly 35 minutes a sheet.

For i = 12 To 100000
line_count = line_count + 1
scanning = scanner(scanning)
current_time = timer(start_time, current_time)

x = x + 1
lngRows = ActiveSheet.UsedRange.Rows.Count

If Cells(i, 1) = "" And Cells(i, 2) = "" Then Exit For
If Not (Cells(i, 3) Like "*loop*") And Not (Cells(i, 5) Like "*Fail*") Then
Rows(i).Delete
i = i - 1
End If
If Cells(i, 3) Like "*loop*" And Cells(i + 1, 3) Like "*loop*" Then
Rows(i).Delete
i = i - 1
End If
DoEvents
Application.StatusBar = "Sheet: " & ActiveSheet.Name & " - " & current_sheet_number & "/" & sheet_count & _
" | Time: " & current_time & " | Current Row: " & i & " - " & "End Row: " & lngRows & " / " & x & " | " & _
line_count & "/" & total_lines & " | " & scanning
Next i