コピーのマクロ（エクセル）

質問

同一行で、データが入力されている連続した複数のセルの一部のセル(複数の時も有り)を選択状態にして実行した時に、選択状態になっているセルが含まれる連続したセルをコピーして指定位置に貼り付けるマクロとして以下を試してみましたが、うまくいきません。
どこが間違っているのでしょうか？

a = ActiveCell.CurrentRegion.Column
ActiveCell.CurrentRegion.Copy Destination:=Cells(30, a)

回答No.1

toshi_2000 · ベストアンサー

私の環境では、正常動作しますが、貴方のではどういう動作になりますか。

お礼

正常動作しました。
On Error ステートメントの記述の仕方が間違っていたようです。
有難うございました。