Option Explicit

Sub Создание_меню_за_стандартными_пунктами_меню_Файл_Правка_Вид_Вставка_Формат_Сервис_Таблица_Окно_Справка()

    Dim strTag As String
    Dim i As Long
    'массив процедур, которые будут выполнять кнопки создаваемого меню
    Dim arrProcs As Variant
    arrProcs = Array("Надстройка1", "Надстройка2", "Надстройка3", "Надстройка4")
    'массив всплывающих подсказок, которые будут отображаться при наведении на пункт создаваемого меню
    Dim arrHint As Variant
    arrHint = Array("Надстройка1", "Надстройка2", "Надстройка3", "Надстройка4")

    strTag = "MyControl"

    With Application.CommandBars("Menu Bar")

        'MsgBox$ .Controls.Count
        'MsgBox$ UBound(arrProcs)

        On Error Resume Next
        For i = 1 To .Controls.Count
            'удаляет ранее созданные меню
            .FindControl(Type:=msoControlPopup, Tag:=strTag, Recursive:=True).Delete
            .FindControl(Type:=msoControlButton, Tag:=strTag, Recursive:=True).Delete
        Next i
        On Error GoTo 0

        For i = 1 To UBound(arrProcs) + 1
            With .Controls.Add(Type:=msoControlButton, Temporary:=True)
                .Tag = strTag
                .Enabled = False
                'IIf это эквивалент функции IF с тем же синтаксисом
                'условие если i = 1, тогда 1, в противном случае 0
                'иными словами - первый пробел, отступ от последнего стандартного меню Справка - 1, остальные - 0
                .Width = IIf(i = 1, 1, 0)
            End With
            With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
                .Tag = strTag
                '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
                'вызывается при нажатом Alt + ...
                .Caption = "Надстройка" & "&" & i
                'возле стандартного меню, например, Справка, ставим курсор мыши, щелчок правой кнопкой мыши
                'Настройка > Параметры, флажок Отображать подсказки для кнопок
                'текст всплывающей подсказки
                .TooltipText = arrHint(i - 1)
                'имя макроса, который будет выполняться
                .OnAction = arrProcs(i - 1)
            End With
        Next i
    End With

    MsgBox$ "End"

End Sub

<?xml version="1.0" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="excel-vba" label="Test excel-vba.ru">
<group id="groupe_1" label="Свойства ячейки">
<button id="cahnge_cell" image="table_edit" label="Изменить свойства ячейки" onAction="CallTest" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>