Add Text/Data in nth row

[Blessy Clara]

Hi all,

Could someone please help me with the below stated

Data present in
Sheet 1
Column A
from A1:A69330

There are two blank rows In Random pattern between the rows of data
Requirement - Is it possible to add the term "New" in every second blank row

For clarity
> First Blank Row
> Second Blank Row
Biotemplate Inc
Location: 1959 Kellogg Ave. Carlsbad, CA 92008
E-mail: kjaalto@msn.com
Web site: www.aaltoscientific.com
> First Blank Row
> Second Blank Row
R&D expertise: Development and manufacturing
of in vitro diagnostic controls & calibrators,
purification of human enzymes & proteins,
processing bulk human serum.
Technological expertise: E, PA, P/S
> First Blank Row
> Second Blank Row
Principal products/instrumentation: In vitro
diagnostic controls, including clinical chemistry,
immunoassay, cardiac markers, and specialty
controls.
Main products/instrumentation under R&D:

After macro

> First Blank Row
New
Biotemplate Inc
Location: 1959 Kellogg Ave. Carlsbad, CA 92008
E-mail: kjaalto@msn.com
Web site: www.aaltoscientific.com
> First Blank Row
New
R&D expertise: Development and manufacturing
of in vitro diagnostic controls & calibrators,
purification of human enzymes & proteins,
processing bulk human serum.
Technological expertise: E, PA, P/S
> First Blank Row
New
Principal products/instrumentation: In vitro
diagnostic controls, including clinical chemistry,
immunoassay, cardiac markers, and specialty
controls.
Main products/instrumentation under R&D:


The Term "New" to be placed in every Second blank row (from top - down)

Thank you

 

[meldoc]

Hello

Try.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> AddNew()<br>  lr = Cells(Rows.Count, "A").End(xlUp).Row<br>    <SPAN style="color:#00007F">For</SPAN> i = 2 <SPAN style="color:#00007F">To</SPAN> lr<br>      <SPAN style="color:#00007F">If</SPAN> Cells(i, "A") = "" And Cells(i - 1, "A") = "" <SPAN style="color:#00007F">Then</SPAN><br>        Cells(i, "A") = "New"<br>      <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Blessy Clara]

Hi,

Thank you for the response and for the code.
It worked great and that is exactly what i was intending for