Without using a macro:

Put this in C1:

=MOD(ROW(A1)-1,200)+1

Temporarily hide column B, select C1, and double-click the fill
handle, which is the small black square in the bottom corner of the
cursor.

Then unhide column B and put this formula in B1:

=A1&TEXT(C1,"000")&D1

Select B1 again, then double-click the fill handle. This will give you
3 digits for the B value, with leading zeros if necessary.

Hope this helps.

Pete

On Feb 6, 5:30*pm, TGV wrote:
Dear Mike,

I require another vba code from you and here after I will not disturb you.. *
In A column I am having some data from a1 to 6000 that is a6000 cells
continuously and there will not be any blank cells. *At the same time the
data will be vary and the 6000 cells are not stable value. *So the macro
should itself select the range from A1 Cell to ending cell.

Now in C Column I want a macro to fill the C1 column cell serial number as 1
and the C2 Column cell serial number as 2 and the C3 column cell serial
number as 3 like this it should fill the continuous numeric series up to the
data which is available in A column. Here is the criteria if the C Column
cell serial number touches 200 then I want the C201 cell serial number as 1
and C202 cell serial number as 2 and C203 cell serial number as 3 like this
it should automatically start numbering 1 to 200 for every 200 cells.

(Explaining the above in brief:
In C401 cell I want the cell serial number as 1 and c402 cell I want the
serial number as 2 like this it should continue and if it reaches C601 cell
then again I want the cell serial number as 1 and C602 cell serial number as
2 like this it should calculate for every 200 cells.)

Finally I want to concatenate the A1,C1 & D1 values in B1 Cell and the same
formula should be pasted B Column upto the data available in A column.

Hope I have explained the same clearly.

Thank you,

TGV