Всем привет!  
Есть таблица B4:K7 с числовыми данными. Необходимо перемножить данные из 4-х конкретных ячеек, причем ячейки каждый раз меняются. Написал вот такой макрос:  
Sub ввод()  
Const BoxTitle = "значения"  
Dim a As Single, Temp As String  
Temp = InputBox("первое значение", BoxTitle)  
a = CSng(Temp)  
Temp = InputBox("второе значение", BoxTitle)  
b = CSng(Temp)  
Temp = InputBox("третье значение", BoxTitle)  
c = CSng(Temp)  
Temp = InputBox("четвертое значение", BoxTitle)  
d = CSng(Temp)  
e = a * b * c * d  
Sheets("List1").Select  
Range("I9").Select  
ActiveCell.FormulaR1C1 = e  
End Sub  
 
Как организовать макрос так, чтобы не вводить данные из ячеек вручную, а указывать курсором мышки с кликом левой кнопкой?