Формула для переноса значения с одного листа на другой

[Олег197709]

Сообщение от vikttur

Зачем удалять, они же невидимы?
Ждите макрос.

Жду! Спасибо за помощь.

[Олег197709]

Сообщение от аналитика

прикол? ты, наверное, не так понял
150 подпунктов - это, напр., 1.1.2.3.2.3.1....и так 150 раз (маловероятная структура)

может действительно не понял....в приложенном файле последнем от меня есть более скорректированная задача, что хочется получить....т.е в форме заполнения имеется 150 строк.....в итоговой таблице строк 50 может быть(выбираются по принципу, если количество не равно 0)....давайте не будем привязываться к подпунктам будем иметь ввиду только строки и все...

[аналитика]

ну без структуры - это чепуха:

Sub Макрос()
   Dim i%
   
   Application.ScreenUpdating = False
   Sheets("форма для ввода значений").Copy After:=Sheets("форма для ввода значений")

   For i = Cells(Cells.Rows.Count, 1).End(xlUp).Row To 6 Step -1
      If Cells(i, 4) = 0 Then Rows(i).Delete
   Next i
   Application.ScreenUpdating = True
End Sub