Insert columns VBA multiple

[nmc]

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

 

[rollis13]

Just to keep you going, this macro will insert 3 empty columns in between the columns. If you need to copy contents from the previous column just add the parameter CopyOrigin: :

Option Explicit
Sub Insert3Columns()
    Dim x      As Long
    Dim LC     As Long
    LC = Cells(5, Cells.Columns.Count).End(xlToLeft).Column 'find last used column in row 5
    For x = LC To 16 Step -1                      'from last column to column P (16)
        Cells(5, x).Resize(, 3).EntireColumn.Insert Shift:=xlToRight   ', CopyOrigin:=xlFormatFromLeftOrAbove
    Next x
End Sub

As for merging cells I'll leave it to you, I hate merged cells .

 

[nmc]

Thanks for your help it worked!!

I'm struggling till know to merge the cells

 

[Joe4]

I'm struggling till know to merge the cells

Note that merged cells in Excel are a really, REALLY bad idea.
Merged cells are probably the absolute worst feature of Excel.
They cause nothing but issues for things like sorting and VBA.
As such, many advanced programmers will not touch nor have anything to do with merged cells!