como ocultar una fila automaticamente si no posse datos?

hola, Mauricio !

... ocultar filas... cuando sus valores son cero
... que se habran automaticamente si reciben algun valor superior a cero.

suponiendo que el rango es: 'D16:D26' ->copia las siguientes lineas<-...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Calculate()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In Range("d16:d26")
Celda.EntireRow.Hidden = (Celda = 0)
Next
End Sub

si requieres 'invertir el ocultamiento'... modifica a ... = (Celda <> 0)
si tu rango pudiera ser [de]creciente... cambia a... In Range([d16], [d65536].End(xlUp))

saludos,
hector.