Makro-Zeitstampel

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("O:O")) Is Nothing Then
Cells(Target.Row, 24).Value = Format(Now, "dd.mm.yy  hh:mm")
End If
If Not Application.Intersect(Target, Columns("W:W")) Is Nothing Then
Cells(Target.Row, 25).Value = Format(Now, "dd.mm.yy  hh:mm")
End If
End Sub

Jetzt habe ich ein Problem und zwar wenn ich in der Spalte O1 bzw. W1 und diese Änderung einfach runterziehe(z.B. bis O100), kriege ich meine Zeitstampel nur in der Zeile X1..
Was muß ich machen, damit ich automatisch in allen Zellen meine Zeitstampel kriege?
Vielen Dank im Voraus