（※追記内容解決しました。）エクセルＶＢＡ超初心者です（データーの入ってない空白セル下に下にと連続にコピーペーストしたい）

Question

文字や数値を罫線で囲み表（１ページ）をつくりました。

単純にその表をコピーペーストして、１ページ目の下に２ページ、２ページ目の下に３ページとコピペのマクロでつく作りたいのですが上手くいきません。

インターネットで検索しながらＶＢＡを見よう見まねで

Sub Macro1()

Macro1 Macro

       Range(A1:H19).Select

       Selection.Copy

       Range("A20").Select

       Selection.Insert shift:=xlDown

End Sub

というマクロを書いてみたのですが実行すればするほどＡ２０にページがどんどん追加されるので古いページが下に下にいってしまうのです。

恥ずかしながら、そういうマクロを自ら書いているという事さえ１週間以上も気づかずにいました。

「１ページ目の下に２ページをコピペ。２ページ目の下に３ページ目をコピペする。」というサンプルコードを教えて頂けると大変助かります。

※追記

　sk.exe様にをコードを教えてもらい、とても助かったのですが

　コピペした表（罫線、数値、文字共に）を削除し、その削除した空白部分に再度、表をコピペしようとすると空白部分を避けるように、

　その下に表がコピペされてしまいます。コードの意味が分からないので、どの様に直したらよいのか分からず困っています(>_<)

　削除した空白に部分を避けずにコピペができるサンプルコードをどなたか教えて頂けないでしょうか。

↑追記内容解決しました。

削除の仕方をかえたら変えたら解決しました。（行番号ごと削除したら上記の様な現象は起きないことに気づきました。）

Answer 1

> データーの入ってない空白セル下に下にと連続にコピーペーストしたい

> 文字や数値を罫線で囲み表（１ページ）をつくりました。

> 単純にその表をコピーペースト

> Range(A1:H19).Select

---

Sub Macro2()

    Dim ws As Excel.Worksheet

    Dim lngLastRow As Long

    Set ws = ActiveSheet

    With ws

'        lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row       'A列においてデータが格納されている最後の行番号を取得する場合

        lngLastRow = .UsedRange(.UsedRange.Rows.Count, 1).Row   '使用されている領域の最後の行番号を取得する場合

    End With

    ws.Range("A1:H19").Copy ws.Cells(lngLastRow + 1, 1)

    Set ws = Nothing

End Sub

---

以上のような感じでしょうか。

Answer 2

sk.exe様ありがとうございます。

できました！！ありがとうございます。

ただ困ったことが起きました。

コピペした表を罫線、数値、文字共に削除して再度同じ場所にコピペしようとすると一度削除され空白になっている場所を避けてその下にコピペされてしまします。

再度、ご教授いただけないでしょうか。