Hello,

I am working in Excel 2002 VBA and have built a macro from a userform to
take and insert a blank row under each existing row that has data (4
columns) to the end of the rows that have data.

I then copy the data immediatley above the newly inserted blank row to the
new blank row. So far so good by using Do and Loop commands and an If
argument to End the routine at the end of the row.

I now need to take one column and find duplicate cell contents (all text
format) and to each second occurence I need to add a trailing letter "P"

All the data in each cell in the range ( column2) is 6 characters and is
mixed content but each original row of data has a unique field untill I run
the macro to insert a row and copy the preceeding row.

Assuming that the data is correct from my import routine (it comes from a
delimited file and this 6 digit alpha numeric text is the key field) then I
could start at a selected cell since I know the next cell below is a
duplicate and simply add a string "Y" to every Offset (2, 0) cell till end
of row?

My mind is blank on how to accomplish this since VBA does not use concanate
and I have little experience in modifying strings. I tried Union, but to no
avail and I need to do this and I am running out of patience.

Help!!!!!

Jeremy