(function()
{
// Дно полное
Common.UI.confirm({
   title: "Ваш выбор",
   msg: "Уверены что пишите в ячейкуА2?",
   buttons: [
      { caption: "Да", value: "yes" },
      { caption: "Нет", value: "no" },
      { caption: "Думаю", value: "do not know" },      
      ],
   callback: func,
});

Api.GetActiveSheet().GetRange("A1").SetValue("test");

function func(value) {
   console.log(`Пользователь выбрал ${ value }`);
   if (value == 'yes') {
      Api.GetActiveSheet().GetRange("A2").SetValue("test0125");
   }
}
})();

 Победил
Sub Averageifs_Function1()
    tmp = WorksheetFunction.Substitute(">" & CDbl(Range("A7")), ",", ".")
    [D2] = WorksheetFunction.AverageIfs(Range("B2:B12"), _
                                        Range("A2:A12"), tmp)
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("M:M, T:T")) Is Nothing Then
        Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
    End If
End Sub

Sub Averageifs_Function1()
    tmp = "<" & CDbl(Range("A7"))
    [D2] = WorksheetFunction.AverageIfs(Range("B2:B12"), _
                                        Range("A2:A12"), tmp)
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
dan$ = ActiveCell.Value
rez$ = "'"
If Mid(dan, 6, 1) <> " " And Mid(dan, 5, 1) <> " " Then
    For i& = 0 To Len(dan) Step 4
        rez = rez & Mid(dan, i + 1, 4) & " "
    Next i
Else
    rez$ = Replace(dan, " ", "")
End If
ActiveCell.Value = rez
End Sub