Остановить выполнение макроса

[Svetofor-ed]

Здравствуйте! Имеется база данных и в некоторых ее столбцах есть пустые ячейки. Что бы можно было отфильтровать эти столбцы, я нашел на этой форуме такие вот макросы

Sub ЗаполнитьПустыеЯчейки№клиента()
    'Очистка
    On Error Resume Next: Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(3).Offset(1).Cells
        If cell.Value = "" Then cell.Formula = "=" & """" & cell.Offset(-1).Value & """"
    Next cell
End Sub

Sub Очистить№клиента()
    On Error Resume Next: Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Columns(3).SpecialCells(xlCellTypeFormulas).ClearContents
End Sub

Первый заполняет все ячейки нужного мне столбца значениями из ячейки выше, второй очищает заполненные ячейки. Все отлично работает, но в моей таблице проставлены формулы вплоть до 5000 ячейки, и макрос, соответственно, заполняет все до 5000 ячейки, что занимает 3-5 секунд.
Можно ли сделать остановку макроса по какому-нибудь условию (допустим, если в определенном столбце появилось пустое знаечение, значит макрос останавливается), что бы заполнялось только уже заполненная часть таблицы. Сам я в макросах почти не разбираюсь, поэтому прошу помощи.

Не пойму как прикрепить сюда файл базы данных.

[IgorGO]

1. сначала заполняете все пустые ячейки формулами, как в ячейке выше
2. а потом очищаете все ячейки заполненные формулами
извините, в этом потайной смысл, которого "непосвяженным" не понять...

п.1 можно пропустить выполнить только п.2 - результат будет аналогичным и, соответственно, гораздо быстрее