add item to dynamic named range

[Bob@Sun]

Hello,

In the attached workbook, I have identical sets of data in column A separated by an blank cell. I need a macro for the user form that i need to build. The code needs to find the end of each named range, (Range1,Range2 and Range3), to insert blank row at the end of each range and to copy the value of the textbox from the user form in each row so to keep the sets of data identical.

I count on your help.

Thank you!

[MickG]

Hi, Try:-

Please Login or Register  to view this content.

Regards Mick

[Bob@Sun]

Yes, It does the job

Thanks A lot!

[Bob@Sun]

Hi mick,

Sorry but i need just a little change in the code

Please see the attached file and look at the merged cells between the data series.

Thanks !

[MickG]

Hi,Merged Cells are not a good idea with code, if you can possibly avoid them, it will make like easier.
Regards Mick

[Bob@Sun]

Well in this case can you make it so when a new row is insert with Item19 to have
one blank cell below the new item and after that 3 blank cell before tha new set. In the file attached with yellow are the 3 blank cells that i need instead of the merged one.

So each time a new item is inserted i need one blank cell before the yellow cells and then 3 cells before the new set

I hope I explained well.

[MickG]

Hi, Try this, see if it fits !!:-

Please Login or Register  to view this content.

Regards Mick

[Bob@Sun]

Gives an Error:

Compile Error:

For without next

[MickG]

Hi, Sorry Bad bit of Copying !!!

Please Login or Register  to view this content.

Regards Mick

[Bob@Sun]

Great!

Now is ok!

Appreciate it!