Не работает Цикл - VBA

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

Ребята, помогите, пожалуйста, разобраться с циклом или с макросом вообще есть колонка G - заполненная, и есть колонка Н, в которой есть как пустые так и не пустые ячейки ИМЕННО там где не пустые, могут быть заполнены следующие ячейки ЭТОЙ ЖЕ строки вправо, то есть H, I, J, K, L, M и т.д. так вот - нужно эти выходящие за пределы ячейки впихнуть в колонку G посредством добавления строки и перемещения (к примеру, как я это вижу) помогите разобраться, уже несколько дней копаюсь

                    Листинг программы
                
Sub Column_H_Shift_Cells()
 
Dim i As Long, cell As Object
 
i = Application.WorksheetFunction.CountA(Columns(7))
 
Set Rng = Range(("H3"), ("H" & i + 11)) 
            
        For Each cell In Rng
            If Not IsEmpty(cell) Then
                c = Application.WorksheetFunction.CountA(Range(Cells(cell.Row, 8), (Cells(cell.Row, 33))))
                
                Do While c > 0
                Rows(cell.Row + 1).EntireRow.Insert  'cell.Offset(1, 0).EntireRow.Insert 
                cell.Offset(1, -1).Value = cell.Value
                
                cell.Offset(1, -1).Interior.Color = vbMagenta
                
                cell.Delete Shift:=xlToLeft
                c = c - 1
                Loop
            End If
        Next
      
End Sub

Решение задачи: «Не работает Цикл»

textual
                            Листинг программы 
                        
Application.EnableEvents = False
'''
Application.EnableEvents = True