Need multiple date stamps in ColA

[roothog]

I'm appending data to rows (ColB:ColL) in one w/s from another. Each time rows are appended I want a date stamp in ColA to be entered automatically. When multiple rows are appended the following code only puts the date in the first appended row.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
Cells(Target.Row, 1) = Date
End Sub

Thanks,
roothog