Цикл в прерывающемся диапазоне - VBA

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

Имеются диапазоны строк с пробелом в одну строку. Необходимы 2 цикла: 1-ый определяет последнюю заполненную в столбце 2 строку и 2-ой цикл работает в каждом непрерывном диапазоне , копируя значения 3 столбца напротив строки, содержащей имя "комната" во все строки ниже до следующего пробела (см.рисунок и файл)... Прошу помочь разобраться как это сделать, Пробовал так, не получается:

                    Листинг программы
                
 
                        
                          
                    
 Sub primer2()
 
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lLastRow
If Cells(i, 1).Value Like "комната*" Then
Range(Cells(i, 2), Cells(i, 2).End(xlUp)).Select
lLastRow_j = Selection.EntireRow.Count
End If
MsgBox lLastRow_j
For j = 2 To lLastRow_j
  If Cells(i, 1).Value Like "комната*" Then
  Cells(i, 1).Range(Cells(j, 3), Cells(j, 3)).Value = Cells(i, 3).Value
End If
 
    Next
    Next
 
End Sub

Решение задачи: «Цикл в прерывающемся диапазоне»

textual
                            Листинг программы 
                        
Private Sub Test()
    Range("B:B").SpecialCells(xlConstants, xlTextValues).Offset(, 1).FormulaR1C1 = "=R[-1]C"
End Sub