Hello! bro
Pues me puse a mirar un poco tu codigo y pos la verdad esta algo confuso en algunas cosas, pero lo que te hace falta más que nada es agregarle un selection.Entirerow.Insert en cada hoja donde agregas la información.
Código:
Rem observaciones
Worksheets("Observaciones").Activate
Range("c12").Select
Selection.EntireRow.Insert
Worksheets("Observaciones").Range("c12").Value = TextBox3
Espero esto te sirva.
Saludos y un abrazo.