Апну тему...  
 
Может есть кто разбирался в данном вопросе...  
Или подскажите как можно отследить через запись макросов название необходимого мне контекстного меню ((  
 
Уже подумываю может создать отдельное всплывающее меню при нажатии на ячейку в таблице, но возникают вопросы по созданию грамотного обработчика ((  
 
А так мне надо сделать чтобы при нажатии ПКМ на ячейке таблицы ListObjects("TblMove") у меня в контекстном меню появился новый параметр удалить, при нажати на который выскакивала бы форма одно из полей которого заполнялось бы значением активной ячейки таблицы

Или почитайте статью, написанную специально для вас )  
http://excelvba.ru/code/PopupMenu  
 
Нажимаете одну кнопочку - и все контекстные меню обзаводятся названиями.

А можно при активном пустом листе любой книги (чтобы что-нибудь не затереть) запустить такой макрос, который выведет названия всех менюшек, их кнопочек, ID значков кнопок и сами значки:  
Sub ListPopups()  
  Dim ctl As CommandBarControl  
  Dim cbr As CommandBar  
  Dim iRow As Integer  
 
  On Error Resume Next  
  Application.ScreenUpdating = False  
 
  Cells(1, 1).Value = "CommandBar.Name"  
  Cells(1, 2).Value = "CommandBarControl.Caption"  
  Cells(1, 3).Value = "CommandBarControl.FaceId"  
  Cells(1, 4).Value = "CommandBarControl.ID"  
  Cells(1, 1).Resize(1, 4).Font.Bold = True  
     
  iRow = 2  
  For Each cbr In CommandBars  
     Application.StatusBar = "Обработка " & cbr.Name  
 
     If cbr.Type = msoBarTypePopup Then ' Выбираем только контекстные менюшки.  
        Cells(iRow, 1).Value = cbr.Name ' название панели - в столбец 1  
        iRow = iRow + 1  
        For Each ctl In cbr.Controls  
           Cells(iRow, 2).Value = ctl.Caption ' подпись кнопки - в столбец 2  
           ctl.CopyFace ' копируем картинку кнопки  
           If Err.Number = 0 Then  
              ActiveSheet.Paste Cells(iRow, 3) ' вставляем картинку кнопки в столбец 3  
              Cells(iRow, 3).Value = ctl.FaceId ' значение FaceId кнопки - в столбец 3  
           End If  
           Cells(iRow, 4).Value = ctl.ID ' ID кнопки - в столбец 4  
           Err.Clear  
           iRow = iRow + 1  
        Next ctl  
     End If  
 
  Next cbr  
  Range("A:D").EntireColumn.AutoFit  
  Application.StatusBar = False  
End Sub

EducatedFool,  
спасибо за пример http://excelvba.ru/code/PopupMenu  
Очень удобно и наглядно.  
Утащил к себе в "кладовку", только добавив ссылку откуда и у кого взял (копирайт надо блюсти!)