Bucle en vba de excel

Hay muchas maneras, creo que la más simple es esta:
Sub numero()
' introducir variables donde i es el numero de celdas a llenar, j el contador y "numero" es el numero que se captura
Dim numero, i, j As Integer
ActiveSheet.Range("a1").Activate
'activamos la celda a1 para empezar a capturar
i = InputBox("Ingrese hasta que casilla se captura", "Rellenar")
For j = 1 To i
numero = Val(InputBox("Ingrese un valor", "Captura"))
ActiveCell.Value = numero
ActiveCell.Offset(1, 0).Activate
Next j
End Sub

Podría ser algo como esto:
x = inputbox("Celda final")
For y = 1 to x
range("A" & Ltrim(Str(y))).Value = "xyz"
Next y
Revisa para ver si te funciona.

Ante todo recibe un cordial saludo; lo que entiendo de tu pregunta es que quieres hacer como un formulario con el cual le introduzcas la cantidad de registros a procesdar. Para lo cual debes hacer lo siguiente; primero debes crear una macro y dentro de la macro introducir un formulario (UserForm).
Una vez hecho esto, debes insertar dos cajas de texto o TextBox; una donde quieres colocar el máximo numero de registros y la otra donde colocaras los registros que van a ser descargados en tu hoja; ademá es de un botón (CommandButton).
Luego debes insertar el siguiente código:
------------------- Codigo -------------->
Dim maximo, contador As Integer
Private Sub CommandButton1_Click()
contador = contador + 1
If contador <= maximo Then
Cells(contador, 1).Value = TextBox2.Value
End If
End Sub
Private Sub TextBox1_Change()
maximo = TextBox1.Value
End Sub
Private Sub UserForm_Click()
maximo = 0
contador = 0
End Sub
------------------- Fin -------------->
Espero te sirva la respuesta, de todas maneras si tienes algún inconveniente o duda al respecto, solo escríbeme y con mucho gusto te responderé nuevamente o envíeame tu dirección de e-mail y te enviaré el ejemplo en Excel.