I need unique ID in Row 1

How do i modify this code to have value of ( 1+value in column A from 1 row
above ) instead of static 1



Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub

On Error GoTo errHandler:

If Target.Column = 2 And Target.Value < "" Then
Cells(Target.Row, 3).Value = "New"
Cells(Target.Row, 1).Value = 1
Cells(Target.Row, 5).Select
End If

errHandler:
Application.EnableEvents = True

End Sub

I thought that i could search for max in column A and then add 1
Or remember previous value and insert it in variable somehow

how do i best acomplish this task ?