Dim tg_ As Variant
    Dim tg1_ As Variant
    Dim tg11_ As Variant
    Dim tg111_ As Variant
    Dim th_ As Variant
    Dim th1_ As Variant
    Dim th11_ As Variant
    Dim th111_ As Variant
    Dim tj_ As Variant
    Dim tj1_ As Variant
    Dim tj11_ As Variant
    Dim tj111_ As Variant
    tg_ = Range("S18").Value
    th_ = Range("T18").Value
    tj_ = Range("U18").Value
    tg1_ = "ЕРТ"
    th1_ = "ЕРО"
    tj1_ = "ЕРМ"
    tg111_ = "" & Replace(Mid(Range("L18").Formula, 2), ".", ",") & ""
    tg11_ = "" & Split(tg111_, "*")(0) & ""
    th111_ = "" & Replace(Mid(Range("M18").Formula, 2), ".", ",") & ""
    th11_ = "" & Split(th111_, "*")(0) & ""
    tj111_ = "" & Replace(Mid(Range("N18").Formula, 2), ".", ",") & ""
    tj11_ = "" & Split(tj111_, "*")(0) & ""
    tg_ = Replace(tg_, tg1_, tg11_)
    th_ = Replace(th_, th1_, th11_)
    tj_ = Replace(tj_, tj1_, tj11_)
    Range("S18").Value = tg_
    Range("T18").Value = th_
    Range("U18").Value = tj_
    'выделяем для преобразования в числа
    Range("S18:U18").Select
    Dim rArea As Range
    On Error Resume Next
    ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
    If Err Then Exit Sub
    With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
    For Each rArea In Selection.Areas
    rArea.FormulaLocal = rArea.FormulaLocal
    Next rArea
    With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
    
    Dim t_ As Variant
    Dim t01_ As Variant
    Dim t02_ As Variant
    Dim t03_ As Variant
    Dim t04_ As Variant
    Dim t11_ As Variant
    Dim t12_ As Variant
    Dim t13_ As Variant
    Dim t14_ As Variant
    t_ = Range("A26").Value
    t01_ = "ЕдиничнаяРасценка"
    t02_ = "ЦЕНА"
    t03_ = "ИТОГО"
    t04_ = "см.Q13"
    t11_ = "" & Range("A18").Value & ""
    t12_ = "" & Range("V18").Value & ""
    t13_ = "" & Range("O18").Value & ""
    t14_ = "" & Range("Q13").Value & ""
    t_ = Replace(t_, t01_, t11_)
    t_ = Replace(t_, t02_, t12_)
    t_ = Replace(t_, t03_, t13_)
    t_ = Replace(t_, t04_, t14_)
    Range("A26").Value = t_