Hallo,
obwohl der folgende Code eigentlich funktioniert, kommt immer mal wieder folgende Fehlermeldung:
[Laufzeitfehler -21474... Die Methode Insert für das Object Range ist fehlgeschlagen.]

Funktion des Codes: In Abhängigkeit von der Position der Schaltfläche (Application.Caller) werden 5 Spalten Copiert und rechts neben der Schaltfläche eingefügt.
Fett markiert ist die Hinterlegte Zeile beim Debuggen.

###################
Sub copypaste()
Dim von As Variant
    Dim bis As Variant
    
    bis = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
    von = bis - 5
    
    ActiveSheet.Range(Columns(von), Columns(bis)).Select
  
    Selection.Copy
    ActiveSheet.Range(Columns(bis + 1), Columns(bis + 6)).Insert

    ActiveSheet.Cells(3, (bis + 2)).Select
EndSub
#####################

Wie gesagt, der Code funktioniert. Vor allem, wenn ich die Tabelle gerade erst geöffnet habe.

Wer kann mir sagen, was ich falsch mache?

Vielen Dank!!