Use the following code: Pl.note, this is logic. If you are not able to make it,
do let me know.I wil lgive you the smae.

Dim Num1=000
Dim Num2=1

Cell a1=AB &Num1 &( Num2+1)
Use this formula to fill the columns you needed.

Regards,