.Body = sBody 'Текст сообщения

 .htmlbody = sBody & sTblBody

With Какая_то_Книга_Какой_то_Лист
    'код
End With

With Worksheets("Расчет")
fr = .Cells(1, 1).End(xlUp).Row + 1 'первая пустая строка на листе, в который вставляем
  If cb = 1 Then
    .Cells(fr, 1).Value = frmKust1.Value 'перенос в ячейку значения из ComboBox
    .Cells(fr, 3) = rcNow1.Value  'перенос в ячейку значения из TextBox1
    .Cells(fr, 4).Value = rcTo1.Value   'перенос в ячейку значения из TextBox2
      If FlowSwitcherForm.cat_fr_1 = True Then Cells(fr, 2) = "F"  'перенос в ячейку значения Checkbox1
      If FlowSwitcherForm.cat_sh_1 = True Then Cells(fr, 2) = "D"   'перенос в ячейку значения Checkbox2
      If FlowSwitcherForm.cat_alc_1 = True Then Cells(fr, 2) = "A"   'перенос в ячейку значения Checkbox3
      If FlowSwitcherForm.cat_of_1 = True Then Cells(fr, 2) = "OF"   'перенос в ячейку значения Checkbox4
      If FlowSwitcherForm.cat_z_1 = True Then Cells(fr, 2) = "Fr"   'перенос в ячейку значения Checkbox5
  End If
End With

Option Explicit
Dim btn(100) As New clsmButts

Private Sub Worksheet_Activate()
    Dim i&, shp As Object
    For Each shp In Me.OLEObjects
        If TypeOf shp.Object Is MSForms.CommandButton Then Set btn(i).CmndBut = shp.Object
        i = i + 1
    Next shp
End Sub

Option Explicit
Public WithEvents CmndBut As MSForms.CommandButton

Private Sub CmndBut_Click()
    MsgBox ("Нажато!!!")
End Sub