Easier way to insert columns in VBA

[malkhazov]

I am currently using the folloing code to insert a specific number of columns (in this case 7):

For i = 1 To 7
[K8].EntireColumn.Insert shift:=xlRight
Next

is there a more efficient way to do this?

 

[macleanb]

Range("B1:D1").EntireColumn.Insert shift:=xlRight


or

Range(cells(1,1), cells(1,4)).EntireColumn.Insert shift:=xlRight