pode tentar assim Sub ocultaZero() For l = 6 To Cells(Rows.Count, "o").End(xlUp).Row If Cells(l, "o"...

Boa tarde, fiz conforme explicou, mas continua ocultando também as linhas em branco (preciso que oculte somente as que tiverem o valor 0). Ficou assim...