VBA -Column Insertion Code Optimization

Question

Ich versuche, eine Spalte in dem Arbeitsblatt einzufügen,

Hier mein Code geht,

Sheets(Currentsheetname).Range("A" & MyRow & ":B" & lastrow).Select 
.Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

Gibt es eine Möglichkeit diesen Code ausführen können, ein bisschen schneller. Momentan dauert es zwischen 5-10 Sekunden.

Danke.

Answer 1

Dies sollte schneller sein: (nie verwenden Select und Selection)

Sheets(Currentsheetname).Range("A" & MyRow & ":B" & lastrow).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove