Private Sub Worksheet_Change(ByVal Target As Range)   ' обработка события изменения на листе
        If Target.Column = 2 Then   ' если Target (изменение на листе) во втором столбце
        Application.EnableEvents = False   ' запретить обработку событий чтобы производимые далее изменения на листе не приводили к повторному циклическому вызову этой же процедуры
        With Target.Offset(0, 4)   ' в ячейке, сдвинутой от ячейки Target на 0 строк и 4 столбца (т.е. с столбце F)
            .Value = Date   ' значение - текущяя дата
            .NumberFormat = "dd.mm.yyyy"   ' формат представления чисел в ячейке (дата в формате дд.мм.гггг)
        End With
        Application.EnableEvents = True   ' разрешить обработку событий
        End If
End Sub