Копирование данных из разных ячеек одного листа на другой лист - VBA

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

Ребят, доброго всем вечера. Требуется помощь. VBA в рамках предмета под названием "информатика", изучал лет 10 назад, на первом курсе юрфака и до теперь потребности в нем не было, однако сейчас таки возникла... и голова сломана. Весь форум перерыв, ничего подходящего не нашел. Вопрос следующий. На листе 1 есть форма просчета стоимости изделия, на листе 2 накопительная форма На листе 1 в ячейках из разных диапазонов формируются значения, которые подлежат копированию в соответствующие ячейки листа 2.

Sub test()  
Application.ScreenUpdating = False  
Range("A1").Copy  
With Sheets("лист2").Range("B2")  
    .PasteSpecial Paste:=xlPasteValues   
End With  
With Application  
     .ScreenUpdating = False: .CutCopyMode = False  
End With  
End Sub

вот таким, кодом привязанным к кнопочке, повторяющимся 19 раз... я заполнил первую строку в табличке на листе 2. и как бы все... тупняк... как сделать так, что б при повторном нажатии кнопки на листе1, данные прописывались на следующей строке таблички на листе2.? как сделать переменные которые указывали бы место назначения для данных из листа1 в таблице на листе2? к теме прикрепил файл пример. На листе1 красными цифрами указаны ячейки, данные из которых подлежат копированию на лист2. Тогда как на листе2 теми же красными цифрами указано место назначения данных из ячеек листа1. Прошу прощения за, наверное, элементарный вопрос для людей с необходимым образованием, но без помощи вряд ли справлюсь. Заранее благодарен за подсказки.

Решение задачи: «Копирование данных из разных ячеек одного листа на другой лист»

textual
                            Листинг программы 
                        
                            Sheets("лист2").Range("B2") = Range("A1")