Избежать случайного удаления строк.

[segail]

Здравствуйте.
При ручной установке ячейке в нужном диапазоне, программно удаляются определенные строки в таблице, подскажите как избежать случайного удаления строк (1,2,3,4,5,6,7,8) в случае ошибочного действия при установки ячейке?

Sub DeletingRows()
    If Если ячейка находится на строках 1,2,3,4,5,6,7,8 Then
        MsgBox "Удаление строк вне границы таблицы невозможно."
    Elst
        ActiveSheet.Unprotect      'Снять защиту листа
        Selection.EntireRow.Delete 'Удаление строки в зависимости от нахождения ячейки
        ActiveSheet.Protect        'Установить защиту листа
    End If
End Sub

[Казанский]

    If Not Intersect(Selection, Range("1:8")) Is Nothing Then

[segail]

Казанский, Спасибо!