Excel VB-指定した範囲の下に貼り付け

質問

ExcelのVBについて質問です。

指定した任意の範囲をコピーして、その範囲のすぐ下に貼り付けるにはどうしたら良いのでしょうか？
任意の範囲は、空白セルがあったりなかったり、まったく規則性はありません。
以下、自分で考えたものです。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Sub Macro1()

Dim myrange As range
Set myrange = Selection
Selection.Copy

#myrangeのすぐ下を選択する何か

ActiveSheet.Paste

End Sub
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

よろしくお願い致します。

回答No.1

zap35 · ベストアンサー

例えば

Sub Macro1()
　If TypeName(Selection) = "Range" Then
　　Selection.Copy Selection.Cells(1, 1).Offset(Selection.Rows.Count, 0)
　End If
End Sub

お礼

できました。
これだけの行にまとめられるのですね・・・
ありがとうございました。