在VBA中插入新的一列，可以使用`Columns`对象的`Insert`方法。以下是一个示例代码，用于在第B列和第C列之间插入3列空白列：
```vba
Sub InsertColumnsExample()
Dim i As Integer
For i = 1 To 3 ' 要插入的列数
Columns("C:C").Select ' 选择要插入的位置,这里是第C列
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' 插入列,并向右移动其他列
Next i
End Sub
```
运行这段代码后，您会在第C列的左边插入3列空白列，原来的列会向右移动。
如果您希望代码更灵活一些，可以通过输入框来让用户输入要插入的列数以及插入的位置，可以使用以下代码：
```vba
Sub InsertColumnsExampleFlexible()
Dim i As Integer
Dim numCols As Integer
Dim startCol As Integer
Dim colLetter As String
' 获取用户输入的列数和起始列
numCols = InputBox("请输入要插入的列数:")
startCol = InputBox("请输入要插入的列的起始列号:")
colLetter = InputBox("请输入起始列的字母（例如：B表示第2列）：")
' 将列号转换为列字母
startCol = Range(colLetter & startCol).Column
' 插入列
Columns(startCol).Resize(, numCols).Insert Shift:=xlToRight
End Sub
```
运行这段代码后，会弹出三个输入框，分别让用户输入要插入的列数、起始列号和起始列的字母。然后根据用户输入的信息，在指定的位置插入相应数量的列。
请注意，在运行VBA代码之前，请确保您已经选中了要插入行或列的位置。