Sub Скрыть_пустые()

    Dim arr1(), arr2() As Boolean
    Dim lr As Long, i As Long, j As Long
    
    Application.ScreenUpdating = False
    
    lr = Columns("A:D").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    arr1() = Range("A1:D" & lr).Value
    ReDim arr2(1 To UBound(arr1))
    
    For i = 1 To UBound(arr1)
        For j = 1 To 4
            If arr1(i, j) <> "" Then
                arr2(i) = True
                Exit For
            End If
        Next j
    Next i
    
    If arr2(1) = False And arr2(2) = False Then
        Rows(1).Hidden = True
    End If
    For i = 2 To UBound(arr2) - 1
        If arr2(i) = False Then
            If arr2(i + 1) = False Or arr2(i - 1) = False Then
                Rows(i).Hidden = True
            End If
        End If
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Готово!", vbInformation

End Sub

Sub Показать_все()
    Rows.Hidden = False
End Sub