Sub myAdd()
    Dim a As Integer, b As Integer
    With Application.CommandBars( 1 )
        a = .FindControl(ID:= 30006 ).Index 'ищем меню "формат" (поиск нужен по ID потому что в руской версии название "формат" а в анг. "format" т.е. по имени искать нельзя)
        With .Controls(a)
            b = .Controls.Count
            .Controls.Add Type:=msoControlPopup, Before:=b ' добавляем в конец раскрыв. меню
            .Controls(b).Caption = "Проба"
            .Controls(b).BeginGroup = True 'устанавливаем разделитель
            .Controls(b).Controls.Add Type:=msoControlButton, ID:= 2949 , Before:= 1  'довавляем кнопку
            .Controls(b).Controls( 1 ).Caption = "Первая кнопка"
            .Controls(b).Controls( 1 ).OnAction = "Макрос1" 'присваиваем макро
            .Controls(b).Controls.Add Type:=msoControlButton, ID:= 2949 , Before:= 2 
            .Controls(b).Controls( 2 ).Caption = "Вторая кнопка"
            .Controls(b).Controls( 2 ).OnAction = ""
        End With
    End With

End Sub