Массовая замена формул - VBA

Формулировка задачи:

есть столбец с формулами, нужно заменить все значения в столбце с "формула" на "формула"*"определённая ячейка" ячейка стационарная.

Решение задачи: «Массовая замена формул»

textual
                            Листинг программы 
                        

                            Sub FormulaAddV2()
    Dim c As Range, rngC As Range, rngF As Range
    Dim s As String
    'ГЏГ°Г®ГўГҐГ°ГїГҐГ¬, Г·ГІГ® ГўГ»Г¤ГҐГ«ГҐГ* ГЁГ¬ГҐГ*Г*Г® Г¤ГЁГ*ГЇГ*Г§Г®Г* ГїГ·ГҐГҐГЄ
    '(Г* Г*ГҐ ГЈГҐГ®Г¬ГҐГІГ°ГЁГ·ГҐГ±ГЄГ*Гї ГґГЁГЈГіГ°Г* ГЁГ«ГЁ Г¤ГЁГ*ГЈГ°Г*Г¬Г¬Г*).
    If TypeName(Selection) <> "Range" Then
        MsgBox "Г‚Г»Г¤ГҐГ«ГЁГІГҐ Г¤ГЁГ*ГЇГ*Г§Г®Г* ГїГ·ГҐГҐГЄ."
        Exit Sub
    End If
    'ГЏГ®Г«ГіГ·Г*ГҐГ¬ ГЇГ®Г¤Г¤ГЁГ*ГЇГ*Г§Г®Г*Г», Гў ГЄГ®ГІГ®Г°Г»Гµ ГҐГ±ГІГј ГЄГ®Г*Г±ГІГ*Г*ГІГ*Г»ГҐ Г§Г*Г*Г·ГҐГ*ГЁГї Г«ГЁГЎГ®
    'ГґГ®Г°Г¬ГіГ«Г», ГЁ ГЄГ®ГІГ®Г°Г»ГҐ Г±Г®Г¤ГҐГ°Г¦Г*ГІ ГІГ®Г«ГјГЄГ® Г·ГЁГ±Г«Г®ГўГ»ГҐ Г§Г*Г*Г·ГҐГ*ГЁГї (ГІГ*ГЄ ГЄГ*ГЄ
    'ГіГ¬Г*Г®Г¦Г*ГІГј, Г±ГЄГ*Г¦ГҐГ¬, Г±ГІГ°Г®ГЄГі "Qwe" Г*Г* Г·ГЁГ±Г«Г® 5 - ГЎГҐГ±Г±Г¬Г»Г±Г«ГҐГ*Г®).
    On Error Resume Next
        Set rngC = Selection.SpecialCells(xlConstants, xlNumbers)
        Set rngF = Selection.SpecialCells(xlFormulas, xlNumbers)
    On Error GoTo 0
    'ГЋГЎГ°Г*ГЎГ*ГІГ»ГўГ*ГҐГ¬ ГїГ·ГҐГ©ГЄГЁ Г± ГЄГ®Г*Г±ГІГ*Г*ГІГ*Г»Г¬ГЁ Г§Г*Г*Г·ГҐГ*ГїГ¬ГЁ.
    If Not rngC Is Nothing Then
        For Each c In rngC
            c.Formula = "=" & c.Value & "*$N$1"
        Next c
    End If
    'ГЋГЎГ°Г*ГЎГ*ГІГ»ГўГ*ГҐГ¬ ГїГ·ГҐГ©ГЄГЁ Г± ГґГ®Г°Г¬ГіГ«Г*Г¬ГЁ.
    If Not rngF Is Nothing Then
        For Each c In rngF
            'Г‡Г*Г*Г®Г±ГЁГ¬ Гў ГЇГҐГ°ГҐГ¬ГҐГ*Г*ГіГѕ s ГґГ®Г°Г¬ГіГ«Гі ГїГ·ГҐГ©ГЄГЁ.
            s = c.Formula
            'ГЏГ®Г«ГіГ·Г*ГҐГ¬ ГґГ®Г°Г¬ГіГ«Гі ГЎГҐГ§ Г§Г*Г*ГЄГ* Г°Г*ГўГҐГ*Г±ГІГўГ*.
            s = Right(s, Len(s) - 1)
            'Г‡Г*ГЄГ«ГѕГ·Г*ГҐГ¬ ГґГ®Г°Г¬ГіГ«Гі Гў Г±ГЄГ®ГЎГЄГЁ (ГЇГ®ГІГ®Г¬Гі Г·ГІГ®
            '3+4*5 Г*ГҐ ГҐГ±ГІГј ГІГ® Г¦ГҐ Г±Г*Г¬Г®ГҐ, Г·ГІГ® (3+4)*5).
            s = "(" & s & ")"
            'Г‡Г*Г*Г®Г±ГЁГ¬ Гў ГїГ·ГҐГ©ГЄГі Г*Г®ГўГіГѕ ГґГ®Г°Г¬ГіГ«Гі.
            c.Formula = "=" & s & "*$N$1"
        Next c
    End If
End Sub
                        