Private Sub CommandButton1_Click()
[b3:b8] =  0 
[b10:b15] =  0 
End Sub

Sub tt()
For x =  9  To  88 
If Cells(x,  5 ).Value =  0  Then Rows(x).EntireRow.Hidden = True
Next
End Sub

  [e9:e88].EntireRow.Hidden = False

  [e9:e88].EntireRow.Hidden = False

Sub tt()
SpinButton1.Visible = False
SpinButton1.Visible = True
End Sub

CommandButton1.Left = ActiveCell.Left + ActiveCell.Width
CommandButton1.Top = ActiveCell.Top

Serzh S
Предоложу свой вариант по проблеме кнопки, может сделать так:
Их не видно а встаем на определенную ячеку и она появляется (тогда надо задать одну кнопку, и просто скрывать ее, а потом отображать на новом месте)
Вот както так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
result = False
s = ActiveCell.Address(RowAbsolute:=False, columnabsolute:=False, ReferenceStyle:=xlA1)
result = (s Like "H*") Or (s Like "J*")
CommandButton1.Left = ActiveCell.Left + ActiveCell.Width
CommandButton1.Top = ActiveCell.Top
If result = True Then CommandButton1.Visible = True Else CommandButton1.Visible = False
End Sub

Кнопка (предварительно ее надо закинуть из конструктора) будет отображаться если встаем на столбец (H,J и [A-Z]H,[A-Z]J ну и т.п. т.е. если в названии столбца присутствует буква J или H)

      With Application
        .ScreenUpdating = False
        .EnableEvents = False
        ac = .Calculation: .Calculation = xlCalculationManual
      End With

'тут весь код

      With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = ac
      End With

Private Sub CommandButton1_Click()
'Range("b62:h66").Clear
[b62:h66].Clear
End Sub

Sub Сброс_Штук_Щелчок()
CheckBox_Дост.Value = False
[e9:e54] =  0 
[g58] =  0 
End Sub

Private Sub CommandButton1_Click()
UserForm1.Hide
If CheckBox1.Value = True Then Sheets("xxx").PrintOut Copies:= 1 : ExecuteExcel4Macro "SOUND.PLAY(,""" & "c:\WINDOWS\Media\chimes.wav" & """)"
If CheckBox2.Value = True Then Sheets("yyy").PrintOut Copies:= 1 : ExecuteExcel4Macro "SOUND.PLAY(,""" & "c:\WINDOWS\Media\chimes.wav" & """)"
End Sub

Application.Dialogs(xlDialogPrint).Show