Insert Multiple Columns Between Data

Hi,

Am after inserting 5 Columns between data. Does anyone have the code for this?

I have the code for 2 columns - but unfortunately do no tunderstand how to tweak it in order to insert it for 5 columns.

Code for 2 columns

Sub InsertCol()
Dim i As Integer
Range("B1").Select
For i = 1 To 100
Selection.Columns("A:B").EntireColumn.Insert
ActiveCell.Offset(0, 3).Select
Next i
End Sub

Hi,

Just change the selection to
Selection.Columns("A:E").EntireColumn.Insert
and adjust the offset()
ActiveCell.Offset(0, 6).Select


HTH
Carim

Thanks Carim, beginning to understand how the code works now.

Glad it fixed your problem.

Thanks for the feedback

Carim