Нужен макрос удаления строк до заголовка с определенным словом

[lakcin]

Помогите - нужен макрос!

Обрисую ситуацию: Каждый день из системы 1С выгружаю ежедневный отчет в Excel 2007. Данный документ состоит из одного листа и содержит 3 таблицы друг над другом ( каждый раз число строк каждой таблицы разный). Над каждой таблице в столбце «К» расположен длинный заголовок, который включает слово («утро», «день», «вечер»).

Необходим макрос, который удаляет все строки до заголовка, расположенного в столбце «К» и который включает в числе других слов - слово «вечер».

Огромное спасибо за помощь!

[ShAM66]

Сообщение от lakcin

Данный документ состоит из одного листа и содержит 3 таблицы друг над другом

Так нету у нас ни документа, ни, тем более, "3 таблицы друг над другом".
Если дадите, то можем посмотреть.

[lakcin]

Прикладываю файл с которым я работаю

[alex77755]

Sub QWERT()
    Set rn = Cells.Find("вечер")
    If Not rn Is Nothing Then Rows(1 & ":" & rn.Row - 1).Delete
End Sub

[Hugo121]

Т.е. нужно удалить всё?
Не сказано ведь откуда начинать удалять

[lakcin]

Мне нужно удалить все строки, которые стоят выше строки в которой есть слово "вечер"

[Hugo121]

Понятно. alex77755 уже решил.

[lakcin]

Я точно прописываю данный макрос в Excel, данный alex77755, и нажимаю выполнить, но у меня удаляется только первая строка( Может что-нибудь еще надо вставить?

[RAN.]

Sub QWERT()
    Set rn = Cells.Find("вечер", , , 2)
    If Not rn Is Nothing Then Rows(1 & ":" & rn.Row - 1).Delete
End Sub

[lakcin]

Всем большое спасибо. Помогли!!!