Есть Макрос вып.списка при правом клике мышки, при выборе значения он вставляет выбранное значение в ту ячейку в которой кликали и вставляет замещение по критерию в нижестоящую ячеку    
не получается следующее:  
вот данные которые вводится должны  
8-23 <<< как сделать отличие двух "8" чтобы при выборе каждой своё значение подставлялось  
8-20 <<<  
9-21  
10-22  
11-23  
12-21  
13-22  
Вых <<<как сделать чтобы при выборе подставлялось "пусто"  
Отг <<<как сделать чтобы при выборе подставлялось "пусто"  
Отп <<<как сделать чтобы при выборе подставлялось "пусто"  
Бол <<<как сделать чтобы при выборе подставлялось "пусто"  
 
вот сам макрос:  
 
Option Explicit  
 
Sub Write_Date_in_Cell()  
ActiveCell = Application.CommandBars.ActionControl.Tag  
ActiveCell.Offset(1).FormulaR1C1 = _  
"=IF(R[-1]C="""","""",VLOOKUP(R[-1]C,{8.1,23;8,20;9,21;10,22;11,23;12,21;13,22},2,0))"
End Sub  
 
 
Sub Create_MyPopupMenu()  
   Dim vItem  
   Del_PopupMenu  
With Application.CommandBars.Add(Name:="MyNumbersPopup", Position:=msoBarPopup)  
For Each vItem In Array(8, 8, 9, 10, 11, 12, 13, "Вых", "Отг", "Отп", "Бол") 'Добавляя, удаляя либо изменяя здесь цифры меняем состав нашего меню  
'можно заносить текст - Array(8, 11, 14, 23, "Новая запись")  
With .Controls.Add(Type:=msoControlButton)  
.Caption = vItem  
.Tag = vItem  
.OnAction = "Write_Date_in_Cell"  
End With  
Next vItem  
End With  
End Sub  
Sub Del_PopupMenu()  
On Error Resume Next: Application.CommandBars("MyNumbersPopup").Delete  
End Sub