Hello
I'm a newbie and I'm struggling for reach out the solution
I want introduce 3 columns between each existing column in a range.
Note: this range is dynamic. sometimes it has 5 cells other times 10.
Example: it starts on cell O5 and I want insert three columns between O5 and P5 and so on...
And the I need to merge four cells -> example O5 and the three columns that were insert xlRight.
I tried to do a loop but it doesn't work
Dim startcell As Integer
startcell = 5
Do While range("O" & startcell).Value <> ""
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
startcell = startcell + 3
Loop
Can someone help me?
Thanks
I'm a newbie and I'm struggling for reach out the solution
I want introduce 3 columns between each existing column in a range.
Note: this range is dynamic. sometimes it has 5 cells other times 10.
Example: it starts on cell O5 and I want insert three columns between O5 and P5 and so on...
And the I need to merge four cells -> example O5 and the three columns that were insert xlRight.
I tried to do a loop but it doesn't work
Dim startcell As Integer
startcell = 5
Do While range("O" & startcell).Value <> ""
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
startcell = startcell + 3
Loop
Can someone help me?
Thanks