Dim X as long
for X=cells(Rows.count, "A").end(xlup).row to 1 step -1
if not (isempty(range("A" & X))) and range("A" & X)=0 then rows(X).delete
next X
Dim I As Long
For I = Range("A35000").End(xlUp).Row To 1 Step -1
If Range("A" & I).Text = 0 Then Rows(I).Delete
Next I