Excel VBA / Добавить колонки через Cells

[sernik]

Добрый день Уважаемые форумчане.
Подскажите, как будет более правильно добавить несколько колонок(столбцов в листе) в нужном месте.
В своем коде я ищу нужный столбец, далее необходимо добавить новых 7, выглядит это следующим не красивым способом:

Do While Sheets(1).Cells(4, g) <> "Выполнено всего"
    If IsDate(Sheets(1).Cells(5, g)) Then DataNew = NewDate
    g = g + 1
Loop

    Sheets(1).Cells(4, g).Select
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert

Спасибо!

[RAN.]

Sheets(1).Cells(4, g).Resize(, 7).EntireColumn.Insert

[Kefirrr]

i = 6 ' нач. столбец
j = i + 7 ' кон столбец


Range(Columns(i), Columns(j)).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

[sernik]

Спасибо всем, более оптимально.