Вставка группы пустых ячеек в выбранном диапазоне

[slba]

Убедительная просьба оказать помощь в решении данной задачи.
Вставка групп пустых ячеек должна быть осуществлена с возможностью выбора вставки по 1,2,3....47 строкам (но можно и по одной строке с достижением необходимого результата путем многократного вызова функции).
В VBA ноль.

[IgorGO]

вот это

Sub InsSameCells()
  r = 3
  Do Until Cells(r, 10) = ""
    Range(Cells(r, 9), Cells(r, 15)).Insert shift:=xlDown
    r = r + 2
  Loop
End Sub

сможете запустить на выполнение?

[slba]

Благодарю за ответ, как говориться каков вопрос таков и ответ.
Исходя из первоначально мною поставленного вопроса задача Вами решена, но решение заставило меня снова задуматься над постановкой вопроса.
Попробую изложить:
- заполненых столбцов в таблице может быть вплоть до 256 (Excel 2003) количество инструментов от 32 до 80;
- информация по одному инструменту размещается в нескольких столб- цах ( от 3х до 8 ), но количество столбцов для каждого инструмента в конкретной таблице одинаково;
- строки заполняются информацией вплоть до 64000 - это по инструмен-ту у которого самый минимальный временной шаг из всех инструментов и по которому вставка ячеек по строкам не нужна.
Как видится решение (но не претендую):1 строка заголовки столбцов, 2 строка условия по каждому столбцу на вставку пустых ячеек по количеству строк (если в столбцах инструмента 0 или "" ячейки не вставляются, если 1,2,3...) завершение по последней строке инструмента или концу таблицы.

[slba]

Вероятнее всего я не правильно или не понятно сформулировал вопрос,
попробую еще.

Цветом показана цель задачи только для пояснения (Excel 2003).

В таблице может быть несколько диапазонов значений ( от 2 до 64 ), каждый диапазон определяется количеством рядом расположенных столбцов ( от 3 до 20 ).
Количество строк, используемых для значений, может быть до 64000 ( по крайне мере, для диапазона по минимальному временному шагу).
Схема решения задачи:
1. Выбор диапазона столбцов через InputBox;
2. Выбор количества строк ячеек (ячеек по количеству строк) через InputBox;
3. Окончание вставки ячеек по концу таблицы или по последней строке значений диапазона столбцов.

Поиск (не один день) не дал мне решения этой конкретной задачи.

За ранее благодарен любому ответу.

[slba]

2 IgorGO
Спасибо, что откликнулись на мой вопрос.
Вопрос решен, тема закрыта.