Range("J4").FormulaR1C1 = _
        "=VLOOKUP(TEXT(,RC[-9]),'O:\123\321\333\[Розничные цены.xlsx]Лист1'!R[2]C[-9]:R[363226]C[162],16,0)"
    Range("K4").FormulaR1C1 = _
        "=VLOOKUP(TEXT(,RC[-10]),'O:\123\321\333\[Розничные цены.xlsx]Лист1'!R[2]C[-10]:R[363226]C[161],28,0)"
    Range("L4").FormulaR1C1 = _
        "=VLOOKUP(TEXT(,RC[-11]),'O:\123\321\333\[Розничные цены.xlsx]Лист1'!R[2]C[-11]:R[363226]C[160],40,0)"

Private Sub SetReplyBarNames(edit As String, editToolTip As String, buttonToolTip As String, buttonFace As Long)
    Dim Bar As CommandBar
    Dim control As CommandBarControl
    
    
    
    Set Bar = FindGXDSReplyBar
    If Bar Is Nothing Then
        Set Bar = CreateGXDSReplyBar
    End If
    
    For Each control In Bar.Controls
        If control.Type = msoControlButton Then
            control.Caption = buttonToolTip
            control.FaceId = buttonFace
        End If
        
        If control.Type = msoControlEdit Then
            control.Enabled = True
            control.Text = edit
            control.Enabled = False
                                     
            control.Caption = editToolTip
        End If
        
    Next
    
End Sub

' и -------------------
Private Sub StartFeed()
    Dim res As String * 255
    
    gxds__get_name (res)
    SetToolBarNames res, "Выделите колонку, содержащую '" & res & "' и нажмите кнопку", "Далее", SELECT_FACE
    ShowToolbar
End Sub

=НОМНЕДЕЛИ(A2)&ДЕНЬНЕД(A2;2)

arrTest = Sheets("mass").Range("A1:A1007").Value

Option Explicit

Sub тест()
Dim arrTest
arrTest = "373,493,332,281,374,383,281,385,146,119,319,204"
    Range("D2").Value = _
        "=INDEX(arrTest,MATCH(MIN(IF(arrTest>=RC[-1],arrTest,"""")),arrTest,0),1)"

End Sub

If Environ("USERNAME") = "admin" Then GoTo admin

For Each c In Selection
    If c <= 0 Then ' считаем нулевые и минусовые значения
        x = x + 1
        With c.Interior
            .Color = 255
        End With
    End If
Next

For x = 22 To 58
Range(Cells(1, x), Cells(lLastRow, x)).Select
x1 = x - 2
x2 = x - 1
    With Range(Cells(1, x), Cells(lLastRow, x)).FormatConditions. _
        Add(xlExpression, , "=ЕСЛИ(И(BJ1>=1;" & Cells(1, x2) & ">=" & Cells(1, x1) & ");1;0)")
        .Interior.Color = vbYellow
    End With '+
    With Range(Cells(1, x), Cells(lLastRow, x)).FormatConditions. _
        Add(xlExpression, , "=ЕСЛИ(" & Cells(1, x1) & "<=(S1/2);1;0)")
        .Interior.Color = vbGreen
    End With ' +
x = x + 2
Next

=ЕСЛИ(И(BJ1>=1;" & Cells(1, x2) & ">=" & Cells(1, x1) & ");1;0)

=ЕСЛИ(И(BJ1>=1;53518,11>=16155,88);1;0)

=ЕСЛИ(И(BJ1>=1;T1>=U1);1;0)

Sub Klass_r1()

Application.ScreenUpdating = False
    Selection.FormulaR1C1 = "=RC[-1]"
        Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.Replace What:="DAX", Replacement:="ФИО1"
        Selection.Replace What:="DAZ", Replacement:="ФИО2"
        Selection.Replace What:="DBI", Replacement:="ФИО2"
        Selection.Replace What:="DDB", Replacement:="ФИО3"
        Selection.Replace What:="DDC", Replacement:="ФИО2"
        Selection.Replace What:="DDF", Replacement:="ФИО3"
        Selection.Replace What:="DDG", Replacement:="ФИО3"
        Selection.Replace What:="DDH", Replacement:="ФИО3"
 ....
 Call klass_r2


End Sub

Sub klass_r2()

ActiveWorkbook.RefreshAll

ЗАМЕНИТЬ(A1;1;3;)

marge = InputBox("Введите процент наценки")
m1 = (marge / 100 + 1)
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]>50,CEILING(RC[-1]*" & m1 & ",10)-1,ROUNDUP(RC[-1]*" & m1 & ",0))"

    Range("Q2").FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[98]C)"