essa linha de comando adiciona varias colunas

Columns("AB:AI").EntireColumn.Insert

Como posso fazer a mesma coisa com variáveis e os números das colunas?

ci1 = Range("Z1").Column
Columns(ci1 + 2, ci1 + n).EntireColumn.Insert

Atualmente uso assim mas demora quando são muitas colunas

For i = 1 To n
Columns(ci1 + 2).EntireColumn.Insert
Next

A macro completa Se tiver como reduzir o tamanho aceito opinião

Sub colunasd()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Limit
Sa
c = Range(Ci & "6", Cf & "6").Columns.Count
k = Range("u1").Value
ci1 = Range(Ci & "1").Column                                       '=numero da coluna ci em numero
cf1 = Range(Cf & "1").Column                                       '=numero da coluna cf em numero

If c < k Then
n = k - c
For i = 1 To n
Columns(ci1 + 2).EntireColumn.Insert
Next
Range(Cells(6, ci1), Cells(9, ci1 + 1)).AutoFill Destination:=Range(Cells(6, ci1), Cells(9, cf1 + n)), Type:=xlFillDefault '
End If

If c > k Then
n = c - k
For i = 1 To n
Columns(ci1 + 2).EntireColumn.Delete
Next
Range(Cells(6, ci1), Cells(9, ci1 + 1)).AutoFill Destination:=Range(Cells(6, ci1), Cells(9, cf1 - n)), Type:=xlFillDefault '
End If

 Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub