{quote}{login=}{date=30.03.2010 01:04}{thema=Макрос что бы не писать в ячейку}{post}Добрый день друзья!  
Будьте добры помогите написать макрос.  
 
Вылетает окно  
Он меня просит введите наименование - вводим и оно идёт в А1  
Жмём далее  
Следующее окно введите сумму  
Вводим и она идёт в А2.  
 
Для Вас я думаю это будет раз плюнуть,а для меня база для изучения макроса.  
 
Большое спасибо{/post}{/quote}  
a=inputbox("Введите наименование","Вопрос номер 1")  
range("A1").select  
activecell.value=a  
дальше то же самое но переменная вместо а другая и текст в inputbox - другой.  
адрес ячейки - тоже другой.

а как сделать так если у меня уже набито несколько таких строк и в следующий раз надо что бы он начинал со следующей

Предпоследнюю строку надо изменить, раз там у нас сумма:  
rng.Offset(2, 0).Value = CDbl(InputBox("Введите сумму", "Вопрос номер 2"))

rng.Offset(2, 0) - смещение относительно rng на 2 строки вниз и 0 столбцов вправо.

Cells - все ячейки рабочего листа  
Cells.Rows.Count - кол-во строк на листе (1048576 для Е2007)  
"A" - столбец  
Cells(Rows.Count, "A") - последняя ячейка в столбце А (А1048576)  
End(xlUp) - подобно Ctrl+стрелка вверх, получаем последнюю непустую ячейку  
Cells(Rows.Count, "A").End(xlUp).Row - номер строки последней непустой ячейки в А  
Range("A" & ...) - последняя непустая ячейка в А