> d(0) = TRUNC((Sheets("S1").Cells(4, 48)),0)このTRUNCってのはなんでしょうか?見たこと無いんですけど……。何をどうやったらオーバーフローになるのかも分かりませんが、とりあえず、マクロを記録してみればコピーの仕方は分かると思います。