for column1, just type any number on that column and on the next row,

put the formula:

=PreviousCell+1

example: Cell (A1), the value is 1000

next row: =A1+1

then copy this formula down the sheet.

for column2, create a Public function on a Module.

press Alt-F11 to go to VBA, type or paste the

below function:

Code:

Public Function fnIncrement(rng As Range) As String
Dim var As Variant
var = Split(rng.Value, "-")
If Val(var(1)) = 9 Then
var(0) = Val(var(0)) + 1
var(1) = -1
End If
var(1) = Val(var(1)) + 1
var(0) = Format(var(0), "000")
fnIncrement = Join(var, "-")
End Function

now put the initial series in a Cell, eg. in Cell B1:

'001-1

on the next row below, put the formula:

=fnIncrement(B1)

copy this down your sheet.