Aprendiendo

Hola Victor

Prueba con <<cells(indicador de fila, indicador de columna)>>

No se que es lo que realmente necesitas, pero un símil de tu código, usando
"cells" sería:

Dim i As Integer
For i = 1 To 10
Cells(i, 1).Select
Cells(i, 1) = InputBox("Escribe tu nombre")
Cells(i, 2).Select
Cells(i, 2) = InputBox("Escribe tu dirección")
Cells(i, 3).Select
Cells(i, 3) = InputBox("Escribe tu teléfono")
Next i

Espero te sirva

"Victor" escribió en el mensaje
news:

Hola que tal estoy a prendiendo a usar vb en exel y como ejemplo hice el
sig. codigo
Dim i As Integer
For i = 1 To 10
Range("A1").Select
ActiveCell.FormulaR1C1 = InputBox("Escribe tu nombre")
Range("B1").Select
ActiveCell.FormulaR1C1 = InputBox("Escrbribe tu direccion")
Range("C1").Select
ActiveCell.FormulaR1C1 = InputBox("Telefono")
i = i + 1
Range ("a(i)") <<<< Aqui es donde no se como hacer para

pocicionarme

en una celda abajo cada vez que termina el codigo
Next i