Copy range into every 2nd of a pair of blank rows.

[and351]

Hi again,

I am pretty new to VBA, and encouterd a probelm I can not solve by myself.

Right now I am trying to prgramm a VBA that copies a row (Range e6:U6) to into every 2 blank rows that exist in the a specified range (E7:U300).

To make it more understandable, I have a list that has data from Range E7:U200. I already managed to write a macro that identifies when there is a change in value in Column R (Say I start with 4 cells that have the input “XXXX” Followed by cells that have “YYYY”) and then inserts two blank rows. However, I now want to copy into the second of those blank rows the input that is in Range (E6:U6).

Is there any lean macro that can do that?

Many thanks for your help in advance

J

[Kaper]

so you probably have already identified rownumbers of this two blank rows Let's assume it is stored in a variable mynewrow1 (upper one)

then you need just

Please Login or Register  to view this content.

and after all your workong with data is finished it's probably worth writing another line of code:

Please Login or Register  to view this content.