Private Sub Worksheet_Change(ByVal Target As Range)
Rows(Target.Row + 1).Hidden = Application.CountA(Rows(Target.Row)) = 0
End Sub
If Application.CountA(Rows(Target.Row)) Then Rows(Target.Row + 1).Hidden =False
Private Sub Worksheet_Change(ByVal Target As Range)
Rows(Target.Row + 1).Hidden = Application.CountA(Rows(Target.Row)) = 0
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("2:9,11:20")) Is Nothing Then Exit Sub
Dim sel As Range
If Target.Count = 1 Then Set sel = Target.Offset(Application.CountA(Target))
For Each Target In Range("2:9,11:20").Rows
Target.Offset(1).Hidden = Application.CountA(Target) = 0
Next
If Not sel Is Nothing Then sel.Select
End Sub