ExcelVBA 挿入貼り付けについて

質問

ExcelVBA勉強中の者です

変数にA1セルを指定し、別のセルへA1の値を挿入したいのですが上手くいきません。

Dim A1Cell As Range
Set A1Cell = Range("A1")
↑Msgbox(A1Cell)にてA1セルの値を出力したので変数の宣言は出来ていると思います。

　　　　ActiveCell.Resize(1, 5).Select
　　 Selection.Copy

Range（A1Cell）.Selection.Insert Shift:=xlDown
　　　　　　　　↑ここでの変数の指定が間違っていると思われます
Application.CutCopyMode = False

かなり調べたつもりですが、自力では解決できずどなたか御助力お願い致します。

回答No.1

kybo · ベストアンサー

Range（A1Cell）.Selection.Insert Shift:=xlDown

を

A1Cell.Insert Shift:=xlDown

に訂正してみて下さい。

お礼

お早い回答を頂きまして有難う御座います。
完璧な動作を確認しました。
Selectionの意味が分かっていませんでした。
大変に助かりました、有難う御座います。