Macro para cambio de registro

Tengo esta macro la captura si cambia de registro hacia abajo pero que me falta para que la validación vaya cambiando conforme al registro de la macro reporte

Sub REPORTE()

registro = 1
While registro = 1
[A1048576].End(xlUp).Activate
fila = ActiveCell.Row + 1
IDTienda = InputBox("Ingresa el ID de Tienda a Capturar")
Semana = InputBox("Ingresa la Semana de Activacion")
NombreDemo = InputBox("Ingresa el nombre d ela Demostradora")
V = InputBox("Asisitio el Viernes")
S = InputBox("Asisitio el Sabado")
D = InputBox("Asisitio el Domingo")
Cells(fila, 1) = IDTienda
Cells(fila, 10) = Semana
Cells(fila, 4) = NombreDemo
Cells(fila, 5) = V
Cells(fila, 6) = S
Cells(fila, 7) = D
Do
precio = InputBox("Ingrese el precio del producto seleccionado")
If (precio < 12) Or (precio > 18) Then
MsgBox ("EL PRECIO NO ES CORRECTO")
End If
Loop Until (precio >= 12) And (precio <= 18)
MsgBox (precio & " ES CORRECTO")
Range("S2").Value = precio
Do
VENTA = InputBox("Ingrese la venta total de la tienda")
If (precio < 200) Or (precio > 400) Then
MsgBox ("LA VENTA NO ES CORRECTA")
End If
Loop Until (VENTA >= 200) And (precio <= 400)
MsgBox (VENTA & " ES CORRECTO")
Range("t2").Value = VENTA

'desicion si quiere ingresar una nueva tienda'
mensaje = "Deseas ingresar una nueva tienda?"
estilo = vbYesNo + vbQuestion + vbdefautlbuttton2
respuesta = MsgBox(mensaje, estilo)
If respuesta = vbYes Then
registro = 1
Else
registro = 0
End If
Wend

End Sub

Quisiera que la comprobación del la macro de validación cambie una registro hacia bajo como lo hace la macro reporte