Happy New Year VBA Experts!
I was wondering if you could help improve the code below. I am trying to delete entire row if value in Column J is zero. The code works but takes very long time over 5 minutes... Thank you so much for your time!
Sub DelZeroColJ()
'delete values where zero in value in column J
Dim lastrow As Long, r As Long
lastrow = Cells(Rows.Count, "j").End(xlUp).Row
For r = lastrow To 2 Step -1
If Cells(r, "j") = o Then
Rows(r).EntireRow.Delete
End If
Next r
End Sub