Как в vba сделать 2 независимых цикла

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

Вопрос : Необходимо чтобы цикл i выполнялся по условию , а j независимо по шагу 1 (1, 2,3 ) и т.д. Как осуществить? Не получается так:

                    Листинг программы
                
 
                        
                          
                    
Sub primer_2()
Dim cell As Range
Dim i, lastRow, firstRow  As Long
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
'_____________________________________________
For i = 1 To lLastRow
For j = 9 To lLastRow
If Cells(i, 1).Value Like "Space Summary*" And Cells(i, 1).Font.Color = vbBlue Then
Cells(j, 16).Value = Cells(i, 1).Value
    End If
    Next
    Next
    End Sub

Что именно не получается: Имеется таблица в ней в 1 столбце по строкам слова, те из них которые имеют синий цвет должны переносится в соседнюю таблицу с определенной начальной позиции , но по порядку (если переносить напрямую например Cells(i, 16).Value = Cells(i, 1).Value , то все строки с синим цветом будут скопированы, но между ними будут такие же пробелы (там где в исходном тексте строки не имеют синего цвета)... Как осуществить?

Решение задачи: «Как в vba сделать 2 независимых цикла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub primer_2()
    Dim cell As Range
    Dim i as integer, k as integer, lastRow, firstRow As Long
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    '<br>
    k=9  
    For i = 1 To lLastRow
       If Cells(i, 1).Value Like "Space Summary*" And Cells(i, 1).Font.Color = vbBlue Then
             k=k+1
             Cells(k, 16).Value = Cells(i, 1).Value
       End If
     Next
End Sub