Create New Line with job number

[iluvfnky]

Hi, is there a way to create a macro or Vba to create a new line with a job number in a sequence eg 1,2,3 etc so that when you click the new line is created with a job number +1 of the previous line? Thanks

 

[AlphaFrog]

Sub Job_Number()

    Dim Startcell As Range
    
    ' The fist job number cell
    Set Startcell = Range("A2")
    
    If IsEmpty(Startcell) Then
        ' First Job number
        Startcell = 1
    Else
        ' Next job number
        With Cells(Rows.Count, Startcell.Column).End(xlUp)
            .Offset(1).Value = .Value + 1
        End With
    End If
    
End Sub