EXCEL2002でRange.Copyでエラー

お世話になります。

OSがWINDOWS　XPの環境で
EXCEL2002で既存の入力用のシートAとマクロで追加して削除するワーク用に２つのシートB,Cがあるのですが、ワーク用のシートに下記コマンドを実行するとエラーなります。EXCEL２００３では問題なく動くのですが、EXCEL2002しか入っていない環境もあるのでご教授して頂ければ助かります。
Sheets("A").Range("d10:d60").Copy Sheets("B").Range("a1)
Sheets("A").Range("h10:h60").Copy Sheets("B").Range("51")
Sheets("A").Range("e10:e60").Copy Sheets("C").Range("a1)
Sheets("A").Range("i10:i60").Copy Sheets("C").Range("51")

以上　宜しくお願いします。

No.2 ベストアンサー 回答者： mu2011 回答日時： 2011/05/20 12:00

NO1です。

仮に値だけのコピーならば以下の方法は如何でしょうか。
因みコピー元サイズ（６１行）が誤っていると思いましたので変更しています。

With Sheets("a")
Sheets("B").Range("a1").Resize(51) = .Range("d10:d60").Value
Sheets("B").Range("a52").Resize(51) = .Range("h10:h60").Value
Sheets("C").Range("a1").Resize(51) = .Range("e10:e60").Value
Sheets("C").Range("a52").Resize(51) = .Range("i10:i60").Value
End With

この回答へのお礼

mu2011様

お礼が遅くなり申し訳ありません。
ありがとうございました。
無事動きました。

以上　ありがとうございます。

お礼日時：2011/05/20 14:28

No.1 回答者： mu2011 回答日時： 2011/05/19 17:07

>EXCEL２００３では問題なく動く

　⇒ご例示コードのSheets("B").Range("51")、Sheets("C").Range("51")はセル不正です。
　　エクセル２００３でも動作しないと思いますが如何でしょうか。

この回答への補足

ご指摘ありがとうございます。
EXCEL2003で動き、EXCEL2002ではエラーとなるのは下記の場合です。
Sheets("A").Range("d10:d60").Copy Sheets("B").Range("a1)
Sheets("A").Range("h10:h60").Copy Sheets("B").Range("a51")
Sheets("A").Range("e10:e60").Copy Sheets("C").Range("a1)
Sheets("A").Range("i10:i60").Copy Sheets("C").Range("a51")
申し訳ありませんでした。

補足日時：2011/05/19 17:22

この回答へのお礼

mu2011様

ご指摘ありがとうございます。
エラーになるとの記述で実際に動かないコードを乗せ申し訳ありません。
失礼しました。

以上です。

お礼日時：2011/05/20 14:25