ignore empty cells

[Hugo121]

Сергей, так стирать не даёт, а это может быть нужно
P.S. Правда, можно забить пробелами....

[Olya1985]

а для чего и в каких случаях используется включение и отключение обработки событий?

[Hugo121]

Чтоб не зацикливалось при Undo - ведь мы этим создаём событие, которое в данном случае обрабатывать не нужно.
И, кстати, при отладке оно может отключиться и не включиться - например, если код отключит и зависнет. Тогда код больше срабатывать не будет.
Для этого может пригодиться

Sub tt()
Application.EnableEvents = True    ' включаем обработку событий
End Sub

Ещё отключение событий может пригодиться, когда кодом открываем файлы, а в файлах может быть код на открытие файла, выполнение которого нам не нужно.

[kuklp]

Исправил. Так дает стирать.

[Olya1985]

а что именно вы исправили?

[kuklp]

Пост от 17:02.

[IgorGO]

а вот это еще зачем?
For Each n In Worksheets(2).Range("A:A")
почему проверяются все данные в колонке A, а не только что внесенные?
может так надо?
For Each n In target.cells
if not Intersect(range("A:A"), n) is nothing then ... проверять

[kuklp]

Добавил проверку на число.