Макрос вставки пустой строки

[redwert]

Пишу макрос обработки файла, и никак не получеться вставить пустю строку перед строкой, первая ячека в которой содержит слово Склад, например: Склад № 1, Склад № 2 и т.д.
Пожплуйста, подскажите эту часть кода, пожалуйста.

[VictorM]

Эта часть кода может выглядеть так:

If ActiveCell.Value = "Cклад" Then ActiveCell.EntireRow.Insert

хотя, конечно, возможны варианты

[redwert]

Вся сложность вычленить слово склад и ячейки склад №1, склад №2, и т.д.

[VictorM]

Вся сложность вычленить слово склад и ячейки склад №1, склад №2, и т.д.

Вот!!!)
И только теперь начинаются уточнения...
Впрочем - как всегда)

[Казанский]

Sub ff()
Dim i&
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(i, 1) Like "Склад*" Then Rows(i).Insert
Next
End Sub

[VictorM]

Да и нет никаких сложностей
Почитайте Функции обработки текста

хотя бы вот это можно:

slovo = Left(ActiveCell, 5) ' равняется "Склад"

зы
Как я и говорил - возможны варианты)