Перенести на другой лист только строки с заполненным количеством

[Виктор.А]

Добрый день!
Прошу помощи, так, как excel знаю только поверхностно.

Нужна помощь в создании документа (спецификации) с автоматическим переносом строк из Калькулятора в Приложение №1 по условию заполнения в строке значения суммы. При этом нужно учитывать, что количество строк в Калькуляторе со временем могут увеличится. Перенос должен происходить автоматически при введении значения СУММА.
Перерыл "ВЕСЬ" Интернет, всё не то...
Буду очень признателен за помощь.

[AleksandrH]

"Прилодение №1 (2)" замени на "Прилодение №1" и повесь код на страницу Калькулятор

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LastRow As Integer, i As Integer, r As Integer
    LastRow = ActiveSheet.Cells(ActiveSheet.rows.Count, "A").End(xlUp).Row
    If Not Application.Intersect(Range("C:C"), Range(Target.Address)) _
           Is Nothing Then
           Sheets("Прилодение №1 (2)").Range("A16:V36").ClearContents
           r = 0
           For i = 2 To LastRow
                If ActiveSheet.Cells(i, 3).Value > 0 Then
                    Sheets("Прилодение №1 (2)").Cells(16 + r, 1) = r + 1
                    Sheets("Прилодение №1 (2)").Cells(16 + r, 2).Value = ActiveSheet.Cells(i, 1).Value 'indeks
                    
                    Sheets("Прилодение №1 (2)").Cells(16 + r, 17).Value = CInt(ActiveSheet.Cells(i, 2).Value) 'price
                    
                    Sheets("Прилодение №1 (2)").Cells(16 + r, 20).Value = ActiveSheet.Cells(i, 3).Value ' ilosc
                    Sheets("Прилодение №1 (2)").Cells(16 + r, 21).FormulaR1C1 = "=Rc[-1]*rc[-4]"
                    r = r + 1
                End If
           Next
    End If
End Sub

[Виктор.А]

AleksandrH, Огромное спасибо, что помогли!
Класс, работает
Подскажите пожалуйста как это работает, то есть в общих чертах.
Допустим если я создам "Калькулятор №2" к примеру, что надо будет сделать для того, чтобы из него в то же Приложение копировались строки.

[AleksandrH]

если структура калькулятора 2 будет как и первого калькулятора, то только код перести. в общих чертах, если в столбце с листа калькулятор были изменения, то очистить поля вывода на листе приложение; перебрать все строки на калькуляторе, если в столбце С число больше 0, то передать эту запись на лист приложение

[Виктор.А]

Спасибо, буду пробовать.