ExcelVBAマクロを教えてください。

下記のようなパターンでまとめてコピーを行いたいです。
マクロ記述内容を教えてください・・。

「A1とA7とA10とA16とA19....」1行目、6行目、3行目、6行目、3行目..とこの順番でセルを選択し、A列の下に向かっていきセルが空白となるまでまとめて選択、さらに選択したすべてのセルをまとめてコピーしたいです。

簡単な内容のVBAを教えて頂けると助かります。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2020/11/05 14:23

こんにちは

こんな感じでしょうか？

Set u = Cells(1, 1)
rMax = Cells(Rows.Count, 1).End(xlUp).Row + 1
rw = 7
While rw < rMax
　Set u = Union(u, Cells(rw, 1))
　If rw + 3 < rMax Then Set u = Union(u, Cells(rw + 3, 1))
　rw = rw + 9
Wend
u.Copy

※ 条件を少し変えてあります。
＞セルが空白となるまで
とあるのを、「Ａ列の最終行まで」と読み替えていますので、途中に空白セルがある場合は、打ち切られるタイミングが異なる可能性があります。
あくまでもサンプルなので、そのあたりの調整は適宜なさってください。

No.1 回答者： satoumasaru 回答日時： 2020/11/05 13:54

ご自身でVBAのコードをつくって、その上で相談された方がよいですよ。

その方が役立つ回答が得られます。