Allgemeines Beispiel dazu:

Option Explicit

Sub Test()
  
  Dim rng As Excel.Range
  
  ActiveSheet.UsedRange.Clear
  
  Set rng = Range("B1:E10")
  
  'Beispieldaten erstellen
  rng.Formula = "=CHAR(64+COLUMN())&ROW()" 'Zellen ihre Zelladresse als Inhalt geben
  rng.Value = rng.Value
  Stop 'weiter mit F5
  
  'nun fügen wir im Bereich vor der zweiten Spalte - im diesem Beispiel ist das Spalte C - drei Spalten ein
  With rng.Columns(2)
    Call .Resize(ColumnSize:=3).Insert(XlInsertShiftDirection.xlShiftToRight)
  End With
  Stop 'weiter mit F5
  
End Sub