VBAでオートフィルの動き

VABでセルに計算式をLoopで設定する処理を作成したのですが、6000行ほどあるのでそれなりに時間が掛かります。 例えば、セルに計算式を１つ選択して、セルの右下隅(フィルハンドル）にマウスポインタを合わせ黒十字に変わったところでダブルクリックを行うと、一気に値や数式が設定されるかと思い ますが、VBAでこのよな処理は可能なのでしょうか？ 実際、計算式を１行入れて、オートフィルを実行するとLoopで実行するより遥かに早く処理が終了します。