Изменить макроса

[FormAlDeGid]

Добрый день обитатели форума.

Проблемка вот в чем: ко мне постоянно приходят файлы генерируемые сервером и для их обработки есть у меня макрос который приводит исходные данные к удобному для меня виду. так вот недавно администрация сервера решила сделать небольшие изменения в алгоритме генерации данных, а точнее разделить столбец в котором содержались название производителя, каталожный номер и название детали на три раздельных столбца. инициатива понятна и даже удобна но вот только из за 2-х лишних столбцов изначальный макрос не подходит для обработки данных. подскажите как подправить макрос.

Sub Сводная_Next()
Range("K1").Select
ActiveCell.FormulaR1C1 = "Примечание"
On Error Resume Next: Application.ScreenUpdating = False
While Err = 0
Range("f:f").Find("итого").EntireRo w.Delete
Wend
Columns(1).AutoFit
Columns(2).ColumnWidth = 1.29: Columns(3).ColumnWidth = 44
Columns("K:L").Insert

Dim ra As Range: Set ra = Intersect(Range("2:" & Rows.Count), _
ActiveSheet.UsedRange.Columns(1).Sp ecialCells(2))

ra.Offset(, 10).FormulaR1C1 = "=(RC[-6]+(RC[-2]/RC[-5]))*1.3"
ra.Offset(, 11).FormulaR1C1 = "=ROUND(RC[-1],-1)"
ra.Offset(, 2).WrapText = False ' перенос по словам в 3-м столбце

Range("G:K,E:E").EntireColumn.Hidde n = True
Columns("M:M").AutoFilter
ActiveSheet.UsedRange.Columns(1).Sp ecialCells(xlCellTypeBlanks).Offset (, 12).Formula = "ё"
Application.ScreenUpdating = True
End Sub

[EducatedFool]

Неужели сложно увеличить все цифры и буквы на 2?

Sub Сводная_Next()
    Range("m1") = "Примечание"
    On Error Resume Next: Application.ScreenUpdating = False
    While Err = 0
        Range("h:h").Find("итого").EntireRow.Delete
    Wend
    Columns(1).AutoFit
    Columns(2).ColumnWidth = 1.29: Columns(3).ColumnWidth = 20
    Columns("m:n").Insert

    Dim ra As Range: Set ra = Intersect(Range("2:" & Rows.Count), _
                                        ActiveSheet.UsedRange.Columns(1).SpecialCells(2))

    ra.Offset(, 12).FormulaR1C1 = "=(RC[-6]+(RC[-2]/RC[-5]))*1.3"
    ra.Offset(, 13).FormulaR1C1 = "=ROUND(RC[-1],-1)"
    'ra.Offset(, 4).WrapText = False    ' перенос по словам уже не нужен

    Range("i:m,g:g").EntireColumn.Hidden = True
    Columns("o:o").AutoFilter
    ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).Offset(, 14).Formula = "ё"
    Application.ScreenUpdating = True
End Sub

[FormAlDeGid]

EducatedFool примного Вам благодарен. =)