Все, решил. Дело в было в формулах в ячейках исходной таблицы

Подскажите, пожалуйста, переношу данные с другого листа.
Макрос изменил вот так (изменения пометил зеленым), работает, но перестал пропускать пустые ячейки, формирует все подряд с пустыми:

Public Sub ИтогТаблица()
Dim rCell As Range
Dim NextRow As Long
NextRow = 5
Dim CurrRow As Long

For Each rCell In Worksheets("Форма ввода").Range("O4:AR302").Cells

   If rCell.Value <> 0 Then
   NextRow = NextRow + 1
   CurrRow = rCell.Row
   ActiveSheet.Cells(NextRow, 1).Value = Worksheets("Форма ввода").Cells(CurrRow, 1).Value
   ActiveSheet.Cells(NextRow, 2).Value = rCell.Value
   ActiveSheet.Cells(NextRow, 3).Value = Worksheets("Форма ввода").Cells(3, rCell.Column).Value
   
   Else
   End If

Next rCell



End Sub

А с этим что то не разобрался

Спасибо большое!
Макрос то что нужно!
Попробую под свою задачу его оптимизировать

С Этим что то не разобрался.
Как он должен выглядеть в конечном итоге?

Здравствуйте!
Есть исходные данные, внесенные в Таблицу 1. А именно какой товар в какие короба вложен и по сколько штук.

Подскажите, пожалуйста, как можно реализовать формулу, для отображения этих же данных в другой таблице (Таблица 2), но в несколько ином отображении?

В Таблице 2 количество строк одного товара должно соответствовать количеству коробов, в которые он вложен, с указанием в этой же строке соответствующего короба и вложенного количества.

На примере в файле, думаю, даже гораздо понятней, чем я здесь описал)