Прошу помощи с макросом excell - VB

Формулировка задачи:

Добрый день!
Прошу помощи с макросом (я чайничек)), есть вот такой макрос:
Range("H1:Q1").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
в него нужно вставить наверное цикл, задача состоит в том чтобы он проделывал такое (копирование диапазона горизонтальной строки и вставку в один столбец) с каждой 14-й строкой.
Как это сделать? прошу помогите, мучаюсь уже несколько дней, подозреваю что это не сложно, но наверное я в душе блондинка

Решение задачи: «Прошу помощи с макросом excell»

textual
                            Листинг программы 
                        

                            Sub T()
    Dim nStep As Long
    nStep = 1
    
    Do While Not IsEmpty(ActiveSheet.Range("H" & nStep).Value)
        ActiveSheet.Range("H" & nStep & ":T" & nStep).Copy
        ActiveSheet.Range("G" & nStep + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        
        nStep = nStep + 15
    Loop
End Sub

                        