Poner macro para celdas especificas

Puede ser así, después de esta línea:

MsgBox (PRECIO & " ES CORRECTO")

Pon esta:

Range("B5").Value = precio

o si ya está seleccionada la celda, entonces podría ser así:

Selection.Value = precio

Si quieres que sea una celda después de la última celda con datos de la columna B, por ejemplo:

    u = Range("B" & Rows.Count).End(xlUp).Row + 1
    Range("B" & u).Value = precio

GRACIAS AHORA SI FUERAS TAN AMABLE TENGO ESTA MACRO

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 COMPROBACION DEL LA MACRO DE VALIDACION CAMBIE UNA REGISTRO HACIA BAJO COMO LO HACE LA MACRO REPORTE