Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
    If Not Intersect(Target.Offset(-1), Me.ListObjects(1).ListColumns(3).Range) Is Nothing Then
        Target.Offset(0, -2).Resize(, 2) = Array(Format(Now, "dd mmmm yyyy"" г."), Format(Now, "hh:nn"))
    End If
ErrorHandler:
    Exit Sub
End Sub

=ФАКТР(C5)/ФАКТР(A5)*ФАКТР(C5-A5) = 2,5490342555202E+73 

=ФАКТР(36)/ФАКТР(5)*ФАКТР(31)

Function Число_сочетаний(ByVal x As Long, y As Long) As Double
Dim k As Double
k = x - y ' результата не дает
    Число_сочетаний = ФакториалX(x) / ФакториалY(y) / ФакториалXY(k) ' пишем ФакториалXY(k) потому что в "Function ФакториалXY(x-y)" аргумент функции не может быть формулой
End Function
Function ФакториалX(ByVal x As Long) As Double
Dim i As Long
    If x < 1 Then Exit Function
    ФакториалX = 1
    For i = 2 To x
        ФакториалX = ФакториалX * i
    Next
End Function
Function ФакториалY(ByVal y As Long) As Double
Dim i As Long
    If y < 1 Then Exit Function
    ФакториалY = 1
    For i = 2 To y
        ФакториалY = ФакториалY * i
    Next
End Function
Function ФакториалXY(k) As Double ' косяк с вычислением последнего аргумента??????
Dim i As Long
Dim x As Long, y As Long
k = x - y
    If k < 1 Then Exit Function
    ФакториалXY = 1
    For i = 2 To k
        ФакториалXY = ФакториалXY(k) * i ' если функцию записать как ФакториалXY(x-y) тоже нет смысла, т.к. значения X и Y не определены
    Next
End Function

Число_сочетаний=Факториал(n)/Факториал(m)/Факториал(n-m)

Факториал = Факториал(n) * (n + 1)

ActiveCell.FormulaR1C1 = "= FACT(R[-19]C[-1])/FACT(R[-19]C[-3])*FACT(R[-19]C[-1]-R[-19]C[-3])"

Function Факториал(ByVal n As Long) As Double
n = n - 1
    If n = 0 Then
        Факториал = 1
        Exit Function
    End If
Факториал = Факториал(n) * (n + 1)
End Function

Sub NumbersWords(control As IRibbonControl)
  Dim tmp As String
  tmp = ActiveCell.FormulaR1C1
    ActiveCell.FormulaR1C1 = "=СУММАПРОПИСЬЮ()"
    Application.Dialogs(xlDialogFunctionWizard).Show
        If IsError(ActiveCell) Then ActiveCell.FormulaR1C1 = tmp
End Sub

Sub NumbersWords(control As IRibbonControl)
  Dim tmp As Variant
  tmp = ActiveCell.FormulaR1C1
  On Error GoTo Error_User
    ActiveCell.FormulaR1C1 = "=СУММАПРОПИСЬЮ()"
    Application.Dialogs(xlDialogFunctionWizard).Show
  
Error_User:
    ActiveCell.FormulaR1C1 = tmp
End Sub

Sub NumbersWords(control As IRibbonControl)
  
  ActiveCell.FormulaR1C1 = "=СУММАПРОПИСЬЮ()"
  If Application.Dialogs(xlDialogFunctionWizard).Show = False Then ActiveCell = ""
    
End Sub

<?xml version="1.0" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" xmlns:МПИ="http://customui.blogspot.ru">
    <ribbon startFromScratch="false">
      <tabs>
         <tab id="мояВкладка" label="Личная вкладка" insertBeforeMso="TabHome" keytip="ЁЖ">
            <group id="Параметры" label="По умолчанию при запуске">
               <dropDown id="Пример1" 
                  getSelectedItemID="get_id" 
                  label="Пример 1"  
                  screentip="Выбор" 
                  supertip="Необходимо выбрать." 
                  onAction="ClickItemID">
                     <item id="item1" label="Не печатать" imageMso="XDPPClose" />
                     <item id="item2" label="1 копия" imageMso="ChangePrinter" />
                     <item id="item3" label="2 копии" imageMso="ChangePrinter" />
               </dropDown>
               <dropDown id="Пример2" 
                  getSelectedItemID="CallbackDDGetSelectedItemID" 
                  label="Пример 2"  
                  screentip="Выбор" 
                  supertip="Необходимо выбрать." >
                     <item id="item11" label="Не печатать" imageMso="XDPPClose" />
                     <item id="item12" label="1 копия" imageMso="ChangePrinter" />
                     <item id="item13" label="2 копии" imageMso="ChangePrinter" />
               </dropDown>
            </group>
            <group id="Click" label="При выборе пункта">
               <comboBox id="ClickItem"
                  label="Результат при клике"
                  onChange="ClickItemID">
                     <item id="item21" label="Не печатать" imageMso="XDPPClose" />
                     <item id="item22" label="1 копия" imageMso="ChangePrinter" />
                     <item id="item23" label="2 копии" imageMso="ChangePrinter" />                  
               </comboBox>
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Option Explicit
Public MyRibbon As IRibbonUI
'Пример 1
Sub get_id(control As IRibbonControl, _
                            ByRef ID)
    ID = "item3"
End Sub
'Пример 2
Sub CallbackDDGetSelectedItemID(control As IRibbonControl, _
                            ByRef ID)
        Select Case control.ID
            Case "Пример2"
                ID = "item13"
        End Select
End Sub

Sub ClickItemID(control As IRibbonControl, _
                            Text As String)
    ActiveWorkbook.Worksheets("Лист1").Cells(1, 1) = Text
End Sub

Private Sub CommandButton4_Click() 
Dim myTable As Worksheet, myTableA4 As Worksheet 
Dim x As Long
Dim n, myArray  
Dim ListObj As ListObject, ListObjA4 As ListObject 
Dim ListRow As ListRow, ListRowA4 As ListRow
    n = GeneralForm1.ComboBox1.Value 
    Set myTable = Worksheets("Накладная")
    Set myTableA4 = Worksheets("Накладная")
    Set ListObj = myTable.ListObjects("Nakladnaya") 
    Set ListObjA4 = myTableA4.ListObjects("NakladnayaA4")
    myArray = ListObj.DataBodyRange 
        For x = LBound(myArray) To UBound(myArray) 
            Set ListRow = ListObj.ListRows(x)
            Set ListRowA4 = ListObjA4.ListRows(x)
                If n = myArray(x, 2) Then 
                    Call SheetActivate
                         ListRow.Range(2) = GeneralForm1.TextBox3.Value
                         ListRow.Range(3) = GeneralForm1.TextBox2.Value
                         ListRow.Range(4) = GeneralForm1.TextBox1.Value
                         ListRowA4.Range(2) = GeneralForm1.TextBox3.Value
                         ListRowA4.Range(3) = GeneralForm1.TextBox2.Value
                         ListRowA4.Range(4) = GeneralForm1.TextBox1.Value
                End If
        Next x
End Sub

                         ListRow.Range(2) = GeneralForm1.TextBox3.Value
                         ListRow.Range(3) = GeneralForm1.TextBox2.Value
                         ListRow.Range(4) = GeneralForm1.TextBox1.Value
                         ListRowA4.Range(2) = GeneralForm1.TextBox3.Value
                         ListRowA4.Range(3) = GeneralForm1.TextBox2.Value
                         ListRowA4.Range(4) = GeneralForm1.TextBox1.Value

Private Sub CommandButton4_Click() ' внесение изменений в бланки
Dim myTable As ListObject, myTableA4 As ListObject 
Dim x As Long
Dim n, myArray 
    n = GeneralForm1.ComboBox1.Value 
    Set myTable = Worksheets("Накладная").ListObjects("Nakladnaya") 
    Set myTableA4 = Worksheets("Накладная").ListObjects("NakladnayaA4")
    myArray = myTable.DataBodyRange 
        For x = LBound(myArray) To UBound(myArray) 
            If n = myArray(x, 2) Then 
                Call SheetActivate
                        myArray(x, 2) = GeneralForm1.TextBox3.Value
                        myArray(x, 3) = GeneralForm1.TextBox2.Value
                        myArray(x, 4) = GeneralForm1.TextBox1.Value
            End If
        Next x
End Sub

Private Sub ComboBox1_Change()
Dim myTable As ListObject
Dim x As Long
Dim n As String
Dim myArray As Variant
    n = ComboBox1.Text
    Set myTable = ActiveSheet.ListObjects("Таблица2")
    myArray = myTable.DataBodyRange
        For x = LBound(myArray) To UBound(myArray)
            If myArray(x, 2) = n Then
                myTable.DataBodyRange.Rows(x).Select
            End If
        Next x
End Sub

Private Sub ComboBox1_Change()
Dim n As String
Dim i As Long
Dim lLastRow As Long
'Dim rgResult As Range
Dim rgResult As Object
    lLastRow = Cells(Rows.Count, 2).End(xlUp).Row - 1
    n = ComboBox1.Text
'Set rgResult = Range("B7:B14").Find(n, , xlValues)
Set rgResult = Workbooks("Лист Microsoft Excel1.xlsm").Worksheets("Накладная").ListObjects("Таблица1").ListColumns("Наименование").DataBodyRange.Address
    For i = 7 To lLastRow Step 1
        If rgResult = n Then
            rgResult.Select
    End If
    Next

End Sub

Private Sub ComboBox1_Change()
Dim n As String
Dim i As Long
Dim lLastRow As Long
Dim rgResult As Range
    lLastRow = Cells(Rows.Count, 2).End(xlUp).Row - 1
    n = ComboBox1.Text
Set rgResult = Range("B7:B14").Find(n, , xlValues)

    For i = 7 To lLastRow Step 1
        If rgResult = n Then
            rgResult.Select
    End If
    Next

End Sub