Очистка значений ячеек макросом постоянно обновляемых ячеек - VBA

Формулировка задачи:

Здравствуйте, уважаемые) Помогите решить такую задачу. Есть некий журнал, нужно заполнять температуру с четкой исполнительской дисциплиной. При изменении любой ячейки таблицы Tсух, Твл, макросом записывается текущая дата/время. При попытке изменить эту дату/время должна вставляться текущая дата/время (это что б руки не чесались данные подделать и задними числами не оформлялись). Из конструкторов соорудил скрипт по кнопке, которая копирует этот лист с заменой даты. Все функции должны остаться на месте. Но при обнулении записей функцией Selection.ClearContents скрипт думает, что пошли изменения ячеек и начинает заполнять все заново. Что делал: Вводил глобальную переменную bClear и установил ее проверку перед макросом проверки изменения ячейки, которая по идее должна его блокировать на время действия очистки, но почему-то не получается. Пихал ее во все модули, менял местами условия, ничего не помогает. Что делать? Может я неправильно понимаю эту функцию? Если она мониторит состояния, как заставить ее на время забыть про автоматическое удаление данных? Заранее спасибо

Решение задачи: «Очистка значений ячеек макросом постоянно обновляемых ячеек»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = True
    ' код без обработки событий
    Application.EnableEvents = False
End Sub
                        