Удаление строк в динамической таблице макросом

[Робин]

День добрый друзья!
Еще одна непонятка.
Нашел в интернете работающий макрос DelRow для удаления строк из динамической (ежемесячно менует свою длину, а ширина остается неизменной). Но при удалении строк, он ставит в столбце А (внизу таблицы) цифирки типа
-1
0
1
Как от них избавиться, не порушив работу макроса? У меня че то не получается это сделать.
Спасибо

[Робин]

Доброго дня!
Спецы! Помогите пожалуйста сделать полследний штрих
в прорамке помогалке
Спасибо

[strannick]

[A15] = 1
....
....
....
Range("A15").AutoFill Destination:=Range(Cells(15, 1), Cells(i - 2, 1)), Type:=xlFillSeries

Я так понимаю, что если А15 присвоена 1, то на ячейки вверх по убыванию, то есть 0 и -1.

[Робин]

Sub DelRow(rngIntersection As Range)
If Intersect(ActiveCell, rngIntersection) Is Nothing Then
MsgBox "Ви намагаєтесь видалити хибний рядок , що може зашкодить роботі цієї програми!", vbExclamation, _
"Увага! Критична помилка"
Exit Sub
End If
If MsgBox("А отже! Перед натисканням кнопки Да, переконайтесь в тому, що курсор установлено вами на непотрібний рядок із наступними даними : " & _
ActiveCell.Value, vbYesNo, "Будьте уважні при видаленні рядків із цієї таблиці") = vbNo Then Exit Sub
ActiveCell.EntireRow.Delete
'[A15] = 1 'все, что ниже - для "посвященных"
'For i = 15 To Rows.Count 'цикл начинает с ячейки C15 и до конца листа вниз
' If Cells(i, 3) = "" Then Exit For 'проверяет ячейку на пустотность, но C15 - пуста, цикл сразу заканчивается, i=15
'Next i
'Range("A15").AutoFill Destination:=Range(Cells(15, 1), Cells(i - 2, 1)), Type:=xlFillSeries '[A13:A15] = -1, 0, 1
End Sub

Вот когда все эти, не понятные мне строки отключаю, макрос работает и не ставит этих цифирок. Тогда не понимаю зачем они былм нужны автору макроса?

[Робин]

Уже наверное доброе утро!
Ребят, а как в этот макрос закрутить "ФормаУдалениеСтрок", которую я заготовил сам, а вот как ее замутить в даный макрос , то есть, макрос удаления строк, не знаю.спасибо

[Робин]

дОБРЫЙ ДЕНЬ

[Робин]

Пардон, файл не прикрепился

[EducatedFool]

Может, это вам поможет:
http://excelvba.ru/code/ConditionalRowsDeleting

[Робин]

НЕт, немного не то.
Мне надо удалять все заполненые строки таблицы, кроме первой. Причем только в пределах диапазона ОбластьРеестра. Поставил курсор за его пределы - предупреждение "Вставте курсор в таьлмцу"и ничего не удаляет.

[Робин]

Доброго дня всем