вопрос по вставке в ячейку

[fidot]

по нажатию кнопки у меня запрашивают какоето количество данные, так вот как сделать
так чтобы они вводились в определённый столбец или строку подряд???
вот как я делаю:
.................................
For i=1 to i
A(i)=InputBox("a=")
Range("Ai")=A(i)
Next i

и у меня не проходит Range("Ai") как сделать, чтобы прошло???

[EducatedFool]

For i = 1 To 5: Cells(i, 1) = InputBox("Введите значение для ячейки A" & i, "Ввод данных"): Next i

Или так:

For i = 1 To 5: Range("A" & CStr(i)).Value = InputBox("Введите значение для ячейки A" & i, "Ввод данных"): Next i

Или даже так:

For i = 1 To 5: Columns("A").Cells(i) = InputBox("Введите значение для ячейки A" & i, "Ввод данных"): Next i

Есть ещё очень много вариантов записи данных в ячейку...

[cent]

Ввод N значений в строку подряд, начиная с текущей ячейки:
For i=0 to N-1
ActiveCell.Offset(0,i).Value= InputBox("Введите значение #" & i, "Ввод данных")
Next i

Ввод N значений в столбец подряд, начиная с текущей ячейки:
For i=0 to N-1
ActiveCell.Offset(i,0).Value= InputBox("Введите значение #" & i, "Ввод данных")
Next i