Primero permíteme sugerirte un cambio a tu macro de modo de "reducir a la mitad" tu código:
Código:
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
Y a partir del cambio anterior, se deduce -rápidamente- lo que deseas realizar:
Código:
ActiveCell.Offset(0, 1) = TextBox2
ActiveCell.Offset(0, 2) = TextBox3
ActiveCell.Offset(0, 3) = TextBox4
Saludos
...