Sort them first (programmatically if you wish - do a macro record to
see how), then do a find for zero, then delete all rows below.