Как задать цикл по столбцам

[umka777_89]

Помогите, пожалуйста с решением задачи:
Есть таблица, как первая на рисунке, нужно для активной ячейки (выбрали,к примеру, строка1) пройтись по диапазонам E:H , I:L, M:P
и если в диапазоне E:H есть хоть одна заполненная ячейка, то вставляем ее значение в соответствующий столбец второй таблицы, если нет - ничего не делаем. и так по всем диапазонам надо пройти.
не могу додумать, как сделать, чтобы проверялась только активная строка.

[Скрипт]

Sub Procedure_1()

    Dim myRow As Long
    Dim i As Long
    
    
    'Помещаем в переменную "myRow" номер
        'строки, где находится активная ячейка,
        'чтобы каждый раз не обращаться к ячейке
        '(может это ускорит работу кода).
    myRow = ActiveCell.Row
    
    
    For i = 5 To 8 Step 1
        'Если в ячейке что-то есть.
        If IsEmpty(Cells(myRow, i)) = False Then
        
            'Делаем действие.
            
            'Выходим из цикла, т.к. нам надо было только одно значение взять.
            Exit For
            
        End If
    Next i
    
    For i = 9 To 12 Step 1
        'Если в ячейке что-то есть.
        If IsEmpty(Cells(myRow, i)) = False Then
        
            'Делаем действие.
            
            'Выходим из цикла.
            Exit For
            
        End If
    Next i

    For i = 13 To 16 Step 1
        'Если в ячейке что-то есть.
        If IsEmpty(Cells(myRow, i)) = False Then
        
            'Делаем действие.
            
            'Выходим из цикла.
            Exit For
            
        End If
    Next i

End Sub

[umka777_89]

Скрипт, Спасибо) Думала, что как-то может можно без стольки циклов обойтись.

[nerv]

вариант

Sub io()
    Dim Area As Range
    Dim Cell As Range
    
    For Each Area In Intersect(Range("E:H, I:L, M:P"), ActiveCell.EntireRow).Areas
        For Each Cell In Area.Cells
            If Not IsEmpty(Cell.Value) Then
                ' do something
            End If
            
            MsgBox Cell.Address
        Next
    Next
End Sub