Sub Udalenie_Skrytyh_Strok()
Dim sh As Worksheet
Dim rng As Range, gr As Range
Dim t!, r&, AC&, n&
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
AC = Application.Calculation: Application.Calculation = xlCalculationManual
  
    For Each sh In ActiveWorkbook.Worksheets
    If sh.Name <> "Остатки" And sh.Name <> "Контракты" And sh.Name <> "Покупатели" And sh.Name <> "Склады" And sh.Name <> "Категории" And sh.Name <> "Панель менеджера" And sh.Name <> "Доставка" Then

        For r = sh.UsedRange.Row To sh.UsedRange.Row + sh.UsedRange.Rows.Count - 1
            If sh.Rows(r).Hidden Then
                n = n + 1
                Set rng = Intersect(sh.Rows(r), sh.ListObjects(1).DataBodyRange)
                If gr Is Nothing Then Set gr = rng Else Set gr = Application.Union(gr, rng)
            End If
        Next r
  
        If Not gr Is Nothing Then
            gr.Delete
            Set gr = Nothing
        End If
             End If
    Next sh
 
Application.Calculation = AC
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub