Why would deleting the values of a range of cells cause an error
during a simple Worksheet_Change event?

sample that causes error:

If Target.Value = 1500 Then

Application.ScreenUpdating = False
For i = 1 To 1000
Target.Offset(i, 0).Select
Selection.Value = i
Next
End If

Still very new to Excel VBA, so any help is greatly appreciated.

Thanks,

Random