Sub нумерация()
[B]Selection.EntireRow.Hidden = True[/B]
Dim i As Integer
Dim r As Integer
Dim n As Integer
i = ActiveSheet.UsedRange.Rows.Count
n = 0
For r = 9 To 22
If ActiveSheet.Cells(r, 2).EntireRow.Hidden = True Then
ActiveSheet.Cells(r, 2).Value = ""
Else
ActiveSheet.Cells(r, 2).Value = n + 1
n = n + 1
End If
Next
End Sub

Sub Workbook_Open()
 ChangeInterface False
End Sub
Sub ChangeInterface(Value As Boolean)
 With Application
 .ScreenUpdating = False
 .Caption = IIf(Value = True, Empty, Sheets("Лист1" ;) .[A1]) 
 .DisplayStatusBar = Value:
 .DisplayFormulaBar = Value
 Dim iCommandBar As CommandBar
 For Each iCommandBar In .CommandBars
 iCommandBar.Enabled = Value
 Next
 With .ActiveWindow
 .Caption = IIf(Value = True, .Parent.Name, "" ;) 
 .DisplayVerticalScrollBar = Value
 End With
 .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & " ;) " 
 .ScreenUpdating = True
 End With
End Sub