I am looking for some VBA code that will quickly delete all rows where there is a 0 in column B.
I am using the following code but as there are over 150k rows in the file each day it takes a while to complete.
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If Not Range("B" & i).Value <> 0 Then Rows(i).Delete
Thanks In advance.