excel - 遅い vba コードを最適化する必要がある

Question

次のコードを使用していますが、完了するまでに時間がかかります-

For i = 1 To 21408
    Range("abcd").Copy
    Rows(Range("abcd").Offset(i, 0).Row).Insert Shift:=xlDown
    Application.CutCopyMode = False
Next i

abcd は、8 つのフィールドを持つ名前付き範囲です。

誰かがこのコードを最適化する方法を提案するか、同じ出力を達成する方法で書き直すことができますか?

ありがとう