Sub СКРЫТЬ()
'Rows("2:19").Select
'Selection.EntireRow.Hidden = True
Range("B1:B19").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
'Range("A1").Select
End Sub
Sub ОТКРЫТЬ()
'Rows("2:19").Select
'Selection.EntireRow.Hidden = False
'Range("A1").Select
Range("B1:B19").EntireRow.Hidden = False
End Sub