после каких действий? что за ошибка? в какой строке макроса?

выложите файл
помотрим что в нем не так. макрос ры работают

Вот образец листа.

У Вас же столбец В защищен от изменений
Перед изменением ячейки надо снимать защиту, потом ставить.

Скрытый текст

Код Sub Protect_for_User_Non_for_VBA()     ActiveSheet.Protect Password:="Jerry", UserInterfaceOnly:=True End Sub Sub UnProtect_for_User_Non_for_VBA()     ActiveSheet.Unprotect Password:="Jerry" End Sub Private Sub Worksheet_Change(ByVal Target As Range)     For Each cell In Target         If Not Intersect(cell, Range("C:D, F:G, I:J, L:M, O:P, R:S, U:V, X:Y, AA:AB, AD:AE, AG:AH, AJ:AK, AM:AN, AP:AQ, AS:AT, AV:AW, AY:AZ, BB:BC, BE:BF, BH:BI, BK:BL, BN:BO, BQ:BR, BT:BU, BW:BX, BZ:CA, CC:CD, CF:CG")) Is Nothing Then             UnProtect_for_User_Non_for_VBA             If IsEmpty(Target) Then                 Range("B" & cell.Row) = Empty             Else                 With Range("B" & cell.Row)                     .Value = Date                 End With             End If             Protect_for_User_Non_for_VBA         End If     Next cell End Sub

При защите ячеек столбца В (пишу все, что есть) выдает следующее:

Run time error '5':
Invalid procedure call or argument.

При этом в макросе выделяет строку
Set rg = Intersect(cell, Range("C:D, F:G, I:J, L:M, O:P, R:S, U:V, X:Y, AA:AB, AD:AE, AG:AH, AJ:AK, AM:AN, AP:AQ, AS:AT, AV:AW, AY:AZ, BB:BC, BE:BF, BH:BI, BK:BL, BN:BO, BQ:BR, BT:BU, BW:BX, BZ:CA, CC:CD, CF:CG"))

Спасибо. ОпробОвал. Выдало:

Выделено:

И/или:

Ага, это не полистовой вариант, а на всю книгу? Тогда возникает еще один вопрос (извиняюсь на наглость). У меня часть листов иного формата, с другими задачами. Я могу их вынести за рамки действия макроса? Спасибо.

а они уже вынесены
макрос в модуле ЭтаКнига защищает ТОЛЬКО 1-й лист
макрос в модуле листа работает ТОЛЬКО с листом, в котором написан
т.е. не понимаю что вы хотите  

Тот лист, который я высылал Вам. Та же ошибка 1004
Выделен диапазон:

Спасибо

Не понимаю, что не так.
Видео здесь

новому коду ПО-БАРАБАНУ какие колонки защищены, а какие нет
при правильном применении будет работать с любым листом
и удаление (очистка данных в колонке В) там тоже решено

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

Игорь, во-первых, спасибо большое, Вы уже помогли, Ваш макрос более лаконичен и работает с защищенными ячейками. Второе, не исключаю, что я формулирую задачи некорректно. Господа, как вы догадались, это не мое поле деятельности. Приношу свои извинения.
Загрузить ролик мне не удалось (ограничения по размерам). Опишу мои действия и работу макроса.
1. В ячейку С6 вносятся данные.
2. Макрос вносит дату в закрытую ячейку В6.
3. В ячейку D6 вносятся данные ошибочно.
4. В ячейке D6  данные убираются.
5. Макрос убирает дату в ячейке В6, хотя есть запись в данной строке (ячейка С6).
Хотелось бы, чтобы дата оставалась при условии заполнения хотябы одной соответствующей ячейки, т.е. даже если мы очищаем ячейку D6, но остается инфа в любой другой ячейке данной строки 6 (понятно, из диапазона) дата в ячейке В6 остается.
Еще раз извиняюсь, но корректнее сформулировать у меня не получается.
Спасибо.

В том и дело, что для Вас понятно. А представьте, что на форум заглянет человек, у которого аналогичная проблема - по какому названию ему легче будет найти нужную тему?