【VBA】セル範囲を下へ下へ間隔をあけてコピーしていきたい。

前提・実現したいこと

セル範囲をコピーして縦にペーストしてから
間隔をあけてまたセル範囲をコピーして、ペーストした直下からまたペースとして。
の繰り返し処理です。

発生している問題・エラーメッセージ

ペーストそれ自体は下に処理できていくのですが、
コピー元がスタートのセル範囲から下がっていかないです。

該当のソースコード

Dim p As Integer

Dim q As Integer

For p = 13 To 710 Step 5

Range(Cells(p, 1), Cells(p, 4)).Select
Application.CutCopyMode = False
Selection.Copy

For q = 11 To 147 Step 4

If Cells(q, 5).Value = "" Then
    Cells(q, 5).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
ElseIf Cells(q, 5).Value <> "" Then Exit For
End If
Next q

Next p

試したこと

For Next構文、Do　While構文など。

補足情報（FW/ツールのバージョンなど）

行動規範の内容に同意します

回答1件

ベストアンサー

やりたいことがイマイチ把握できてないですが、こうですか？

VBA
1    Dim p As Integer
2    Dim q As Integer
3    q = 11
4    
5    For p = 13 To 710 Step 5
6        Range(Cells(p, 1), Cells(p, 4)).Copy
7        If Cells(q, 5).Value = "" Then
8            Cells(q, 5).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
9            q = q + 4
10        End If
11    Next p
12