Нужен макрос для автоматической замены переменных в формулах - VBA

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

Доброго дня всем! Пожалуйста, помогите написать макрос. В прикрепленном файле Пример макрос должен найти все ячейки с формулами форматов 1) =СУММ(N*:T*) и поменять на =СУММ(N*;Q*;T*) 2) =СУММ(W*:AC*) и поменять на =СУММ(W*;Z*;AC*) 3) =СУММ(AF*:AL*) и поменять на =СУММ(AF*;AI*;AL*) 4) =СУММ(AO*:AU*) и поменять на =СУММ(AO*;AR*;AU*) * - номера строк не меняются

Решение задачи: «Нужен макрос для автоматической замены переменных в формулах»

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

                            Sub Test()
    For Each cel In Selection.Cells
        If cel.HasFormula Then
            cel.FormulaR1C1 = "=(" & Right(cel.FormulaR1C1, Len(cel.FormulaR1C1) - 1) & ")*R32C"
        ElseIf IsNumeric(cel.Value) And cel.Value <> Empty Then
            cel.FormulaR1C1Local = "=" & cel.Value & "*R32C"
        End If
    Next
End Sub
                        