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