I have the following code which adds an ID number to rows of data entered
onto a certain sheet. The number is entered into column A when an entry is
made into column B.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If IsEmpty(Cells(Target.Row, 1)) Then
Application.EnableEvents = False
Target.Offset(0, -1).Value = Target.Row - 1
End If
End If
Application.EnableEvents = True
End Sub

This works fine but I have found myself in the situation where 100's of rows
of data are copied to the sheet, an ID number is not created when I do this.
Is it possible to amend the existing code to accomodate both methods of data
entry onto the sheet?

Thanks in advance.

Gareth

PS
Is there a need for a error handler?