Offset im Vergleich zu Selection.Insert Shift: = xlToRight - Excel, VBA, Excel-VBA

Ich habe das folgende Makro und möchte die Anzahl der Zeilen reduzieren, um den Vorgang zu beschleunigen.

5
ActiveCell.Columns("A:A").EntireColumn.Select
If Selection.Find(What:="*", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=True) Is Nothing Then
GoTo 6
End If

Selection.Find(What:="*", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=True).Activate
ActiveCell.Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
GoTo 5

Ich möchte mehrere ersetzen "Selection.Insert Shift: = xlToRight" Zeilen mit einer einzelnen Zeile mit Offset.

Können Sie bitte helfen!

Antworten:

Ersetzen Sie Ihr x5 Selection.Insert Shift:=xlToRight durch Range(ActiveCell, ActiveCell.Offset(0, 4)).Insert shift:=xlToRight

BEARBEITEN

Weitere Informationen zu Ihrem Code: Range(Selection, Selection.Offset(0, 4)).Insert shift:=xlToRight