Wpisywanie aktualnej daty

Wita,

Mam arkusz, w którym po wpisaniu danych do wiersza w kolumnie 1 obok w tym samym wierszy ale w kolumnie 2 wstawiam datę.
Realizuję to za pomocą takiego, krótkiego skryptu

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Cells(Target.Row, 2) <> "" Then Exit Sub
Cells(Target.Row, 2) = Now
End Sub

Potrzebuję aby takie coś działało dla dwóch kolumn. Tzn. wprowadzam coś w wierszu w kolumnie 1 to obok w kolumnie 2 pojawia się data.
Potem wpisuję coś do kolumny 3 i w kolumnie 4 pojawia się data.

zamień Now na Now() i po problemie....

areklipno napisał(a):

zamień Now na Now() i po problemie....

Dzięki za odpowiedź ale ogarnąłem to w inny sposób.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Cells(Target.Row, 4) = Now

ElseIf Target.Column = 7 Then
If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub

Cells(Target.Row, 9) = Now


End If

End Sub