Ocultar filas vacías de un rango de 100 filas

:)

Hola! Tecknova. Te muestro una forma:

Sub Macro367()
Dim C As Range, Rng As Range
For Each C In Range("A10:A110")
  If C = Empty Then
    If Not Rng Is Nothing Then Set Rng = Union(Rng, C) Else Set Rng = C
  End If
Next
If Not Rng Is Nothing Then Rng.Rows.Hidden = True
End Sub

Saludos, Mario R.

:)

.