Перенос кода Visual Basic - VB

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

подскажите пожалуйста что я делаю не правильно
вот макрос
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If cell <> "" Then
With cell.Offset(0, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End If
Next cell
End Sub
В строку "If Not Intersect(cell, Range" вставив еще пару столбико выскакивает ошибка, и строка выделяться жёлтым

Решение задачи: «Перенос кода Visual Basic»

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

                            dim r as range
set r = Range ("E3:E151")
set r = Application.Union(r,"H3:H151")
set r = Application.Union(r,"K3:K151")
...
with cell in r.offset(,2).cells
    if cell <> "" then cells = Now
end qith

                        