Guten Morgen,
Wenn du einfach nur erreichen willst, dass 3 Spalten eingefügt werden, könntest du auch einfach
folgendes probieren:
Delphi-Quellcode:
Columns("K:N").Select
Selection.Insert Shift:=xlToRight
...andernfalls probier mal:
Delphi-Quellcode:
Range("K3:K20000").Select
Selection.Cut
Range("O3").Select
ActiveSheet.Paste
MFG
Steffen