Insert Columns Dynamically vba

The Problem (Q-score 7, ranked #168th of 303 in the Excel VBA archive)

The scenario as originally posted in 2013

I have a Report a part of it is hard to read and I would like to insert separating columns to make it easier to view.

The report is created dynamically and I never know how many columns there will be 5, 10, 17…

The section starts at F and goes to ival=Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")

So if ival=10 then the colunms are F G H I J K L M N O and I need to insert columns between F&G G&H H&I I&J ... N&O

This is maybe a possibility for inserting columns Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i).Insert

But not shure how to loop through ival, been trying but no luck.

Thanks

Sub InsertColumns()
Dim iVal As Integer
Dim Rng As range
Dim LastRow As Long
Dim i  As Integer

With Sheets("sheet1")
    LastRow = .range("D" & .Rows.Count).End(xlUp).Row
End With

iVal = Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")

For i = 7 To iVal - 1
Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i+1).Insert
Next i

End Sub

Why community consensus is tight on this one

Across 303 Excel VBA entries in the archive, the accepted answer here holds niche answer (below median) status — meaning voters are unusually aligned on the right fix.

The Verified Solution — niche answer (below median) (+8)

16-line Excel VBA pattern (copy-ready)

Try below code :

Sub InsertSeparatorColumns()

    Dim lastCol As Long

    With Sheets("sheet1")
        lastCol = Cells(2, .Columns.Count).End(xlToLeft).Column

        For i = lastCol To 7 Step -1
            .Columns(i).Insert
            .Columns(i).ColumnWidth = 0.5
        Next

    End With

End Sub

Loop-performance notes specific to this pattern

The loop in the answer iterates in process. On a 2026 Office build, setting Application.ScreenUpdating = False and Application.Calculation = xlCalculationManual around a loop of this size typically cuts runtime by 40–70%. Re-enable both in the Exit handler.

When to Use It — classic (2013–2016)

Ranked #168th in its category — specialized fit

This pattern sits in the 98% tail relative to the top answer. Reach for it when your scenario closely matches the question title; otherwise browse the Excel VBA archive for a higher-consensus alternative.

What changed between 2013 and 2026

The answer is 13 years old. The Excel VBA object model has been stable across Office 2013, 2016, 2019, 2021, 365, and 2024/2026 LTSC, so the pattern still compiles. Changes that might affect you: 64-bit API declarations (use PtrSafe), blocked macros in downloaded files (Mark-of-the-Web), and the shift toward Office Scripts for web-first workflows.