Identificar textbox variable

En pocas palabras, os pego lo que he hecho y explico:

d = 0

b= Activecell.row
Do While d < Txt_cantidad.Value
n = 1 + d
Range("C" & b + d).Value = Val("txt_producto" & n)
Range("D" & b + d).Value = Val("txt_peso" & n)
d = d + 1
Loop

Tras varias pruebas, no consigo crear el bucle para poder coger los datos de txt_productos(n) y de txt_peso(n), siendo 'n' uno de los ocho textbox de mi formulario. Si tengo 5 productos tengo que meter los datos de 5 textbox en 5 celdas correlativas. No se si he conseguido explicarme, pero confío en que tengáis una solución.

Gracias