[a_axe]

что не так со скриптом »

nipopadyuk, не касаясь вопросов оптимизации кода - должно быть "I", а не "J"

Код:

If Not Intersect(cell, Range("I3:J65536")) Is Nothing Then

Updated:
В коде Вы дважды перебираете ячейки, значения которых единовременно изменились. Логично было бы делать все за один цикл, например так:

код

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cell In Target
        If cell.Row > 2 And cell.Row <= 65536 And cell.Value <> "" Then
            Select Case cell.Column
                Case 5
                    If cell.Offset(0, 5).Value = "" Then cell.Offset(0, 5).Value = Now
                Case 9
                    If cell.Offset(0, 2).Value = "" Then cell.Offset(0, 2).Value = Now
            End Select
        End If
    Next cell
End Sub

[nipopadyuk]

nipopadyuk, не касаясь вопросов оптимизации кода - должно быть "I", а не "J" »

Спасибо, решено