<group id="post">
   <dropDown id="post2" label="Постобработка">
      <button id="but4_2" label="Разбить компл" imageMso="VerticalSpacingIncrease" onAction="but4_2" />
      <button id="but4_4" label="Множ число" imageMso="FormattingUnique" onAction="but4_4" />
      <button id="but4_6" label="РОИС РБ" imageMso="PanningHand" onAction="but4_6" />               
        </dropDown>
</group>

<group id="post">
   <dropDown id="post2">
      <item id="it" label="Постобработка" />
         <button id="but4_2" label="Разбить компл" imageMso="VerticalSpacingIncrease" onAction="but4_2" />
         <button id="but4_4" label="Множ число" imageMso="FormattingUnique" onAction="but4_4" />
         <button id="but4_6" label="РОИС РБ" imageMso="PanningHand" onAction="but4_6" />               

   </dropDown>
</group>

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица14"]}[Content],
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each Text.StartsWith([Наименование], Excel.CurrentWorkbook(){[Name="Наименование"]}[Content]{0}[Column1]))

Public Sub SaveAttachments(msg As MailItem)
Dim att As Attachment
Dim base_path As String
Dim file_ext As String        
Dim s As String
Dim pd As Integer
Dim n As String, w As String


base_path = "C:\База цен"
file_ext = "xlsx_xls"
  
    For Each att In msg.Attachments

        s = att.FileName
        pd = InStrRev(s, ".")
        n = Left(s, pd - 1)
        w = Right(s, Len(s) - pd)

        If InStr(file_ext, w) > 0 Then
            att.SaveAsFile base_path & "\" & n & "." & w
        End If
    Next
End Sub

shtX.Cells(1, Ncol + 9).FormulaLocal = "=cbr(СЕГОДНЯ();"usd")"

Set shtB = ThisWorkbook.Worksheets("Инвойс предоплата РФ")

shtB.Range(Cells(1, Ncol + 2), Cells(t - 1, Ncol * 2 + 1)).Sort Key1:=Range(Cells(1, Ncol + 2), Cells(t - 1, Ncol + 2))