Вставка строки в диапазон с условием if - VBA

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

Ребята, выручайте, нужно вставить строку в диапазон, если содержимое ячейки больше 5 символов. Проблема в том, что после вставки строки, как я понимаю, его зацикливает на первом условии. Пробовала добавить доп. цикл - не выходит. помогите найти ошибку, спасибо!

Sub Insert_row()
 
    Set Rng1 = Range("B1:B80")
       
         For Each Cell In Rng1
         
            'Set Rng2 = Range(("B" & cell.Row + 2), ("B80"))
         
                'For Each cell In Rng2
         
                    If Len(Cell) > 5 Then
                    
                    Cell.Interior.Color = vbYellow
                    
                    Rows(Cell.Row).Insert
                   
                    End If
                    
                'Next
        
        Next
        
End Sub

Решение задачи: «Вставка строки в диапазон с условием if»

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

                            For i=80 to 1 step -1
    ' здесь код проверки
next
                        