If activecell.value = 0 Theo

Código de ocultar
Ele é
Activell.offset (1,0).select

End if

Coloque isso do for next

Ele é = ELSE o corretor corrigiu indevidamente

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:

Sub Oculta()

Dim i As Integer
For i = 6 To 3000
Range("O" & i).Select

If ActiveCell.Value = 0 Then
Selection.EntireRow.Hidden = True
Else
ActiveCell.Offset(1, 0).Select
End If
Next i

End Sub

Mais Alguma sugestão?

pode tentar assim

Sub ocultaZero()

    For l = 6 To Cells(Rows.Count, "o").End(xlUp).Row

        If Cells(l, "o").Value2 & " " = 0 & " " Then Rows(l).EntireRow.Hidden = True

 
    Next
End Sub

kkk a falta de atenção é uma droga
eu tive erro varias vezes eu não estava entendendo o pq
e era pq eu coloquei o 0 "zero" no lugar da letra "o"

pode tentar assim

Sub ocultaZero()

    For l = 6 To Cells(Rows.Count, "o").End(xlUp).Row

        If Cells(l, "o").Value2 & " " = 0 & " " Then Rows(l).EntireRow.Hidden = True

 
    Next
End Sub

kkk a falta de atenção é uma droga
eu tive erro varias vezes eu não estava entendendo o pq
e era pq eu coloquei o 0 "zero" no lugar da letra "o"

Oi, consegui ! Era isso mesmo que eu precisava.
Havia conseguido com o seguinte ccódigo:
If ActiveCell.Value = "" Then
ActiveCell.Offset(1, 0).Select
ElseIf ActiveCell.Value = 0 Then
Selection.EntireRow.Hidden = True
Else
ActiveCell.Offset(1, 0).Select

End If
Next i

Mas era muito gambiarra, o teu ficou muito mais limpo.
Obrigado.