Нужно реализовать пару вещей в Excel файле - VBA

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

Вроде, в правильный раздел написал 1 вещь: В 1 листе, рядом с ячейкой C3, есть окошко со списком значений. Когда выбирается нужное значение, идёт изменение ячейки D8. А вот как сделать такое: после внесения изменения в D8, окошко со списком значений выбирает следующую "жертву", т.е. D9; после изменения D9 следом идёт D10, и так до бесконечности. 2 вещь: В листе 1 есть ряд "L" ячеек. В каждой L-ячейке требуется автоматический подсчёт по формуле "цена * кол-во". Но закавыка в том, что данные цен нужно брать из Листа 2. Как я вижу решение задачи: сделать ассоциацию названия (D-ячейки, Лист 1) с названием из (C-ячейки, Лист 2). После этого, название (C-ячейки, Лист 2) связать с ценой (D-ячейки, Лист 2). Как автоматизировать установку связей?

Решение задачи: «Нужно реализовать пару вещей в Excel файле»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub ComboBox1_Change()
Dim n#
n = 7
Do
n = n + 1
Loop Until Cells(n, 4) = ""
Cells(n, 4) = Me.ComboBox1.Text
End Sub