Автодобавление текущей даты в ячейку excel

прикладываю пример екселя. где на вба средствами офиса. реализовтаь следующую задачу.

при изменение любого из 9 столбцов листа, чтобы в 10 столбце ставилась актуальная дата.в формате. "01.02.2012" (ЧАСЫ И МИНУТЫ НЕ ДОЛЖНЫ ОТОБРАЖАТЬСЯ.)

либо при добавлении новой строчки... ставилась дата в 10-м столбце.

вот пример кода, как можно это реализовать. http://www.planetaexcel.ru/tip.php?aid=28

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

With Target(1, 2)

.Value = Now

.EntireColumn.AutoFit

End With

End If

End Sub

Ррезуьтат предоставить в текстомвом виде, чтобы можно было этот код вставить и всё заработало.

бюджет маленький но и задачка простая:)