Скрывает определенные строки листа.
Sub Скрыть_Строки() Rows("11:62").Select Selection.EntireRow.Hidden = False 'отобразить строки 11:62 Rows("45:61").Select 'скрыть строки Selection.EntireRow.Hidden = True End Sub