I am wondering if the following code can somehow be altered so the Submenu is at the top or above 'Copy'
Sub Submenu()
Dim Bar As CommandBar
Dim NewMenu As CommandBarControl
Dim NewSubmenu As CommandBarButton
DeleteSubmenu
Set Bar = CommandBars("Cell")
Set NewMenu =...