指定の行範囲をコピーして、行と行の間に挿入していくマクロを教えてください。

計算式が単純なコピーで期待通りに機能するかは不明ですが、下記で提示されたサンプルを処理して4秒でした。

 Sub Sample()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    For r = 661 To 74 Step -1
        Rows("50:72").Copy
        Rows(r).Insert Shift:=xlDown
    Next
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 End Sub