Excel VBA データ削除の高速化

今晩は，質問させていただきます．どうぞよろしくお願いいたします． Win7 + Excel2007でございます。 B～D列の、1～300,000行程にデータが入っており、グラフ化する際に重いです。 そこでこれを周期的に間引く為に （例えば、10行消して1行残す→また10行消して・・・の繰り返し）、 .Range(.Cells(行1, 2), .Cells(行2, 4)).Delete Shift:=xlUp を繰り返すコードを作成いたしました。 が、非常に動作が遅く、数千行実行するのにも暫く時間がかかるほどでございます。。。 原因を解明すべく検索いたしておりますと、VBAの中でもデータ削除が原因で マクロ動作が遅くなるケースは珍しく無いようでございます。 他のコーディング方法で何か、上記より早い方法というのは あるのでございますでしょうか？ もしお詳しい方がいらっしゃいましたら，是非アドバ