Макрос удаления 300 строк после ....

[lakcin]

Здравствуйте! Помогите пожалуйста написать макрос удаления строк для excel 2007.
Ситуация - Каждый день выгружаю отчет с таблицей из 1С (каждый раз число строк в таблице разное). Внизу этой таблицы под столбиком "Количество" уже вне таблицы в ячейке показано общее количество.

Необходим макрос который удаляет строку, содержащую данную ячейку и плюс 300 строк следующих за ней. То есть именно удалить последующие 300 строк без всяких условий (неважно пустые они или содержут еще несколько схожих таблиц).
Файл прилагаю. Всем заранее большое спасибо!

[Step_UA]

Sub Delete()
    Range(Cells(2, 1).End(xlDown).Offset(1), Cells.SpecialCells(xlCellTypeLastCell)).EntireRow.Delete
End Sub

[kalbasiatka]

Sub delrows()
    Dim i&, lr&
    lr = Range("A2").End(xlDown).Row
    Application.ScreenUpdating = False
    For i = lr + 300 To lr Step -1
        Rows(i).Delete
    Next
    Application.ScreenUpdating = True
End Sub

[lakcin]

БОЛЬШОЕ СПАСИБО.