La macro me coloca los datos en la misma fila

Necesito ver el código de la macro para encontrar el error aparte de modificarle para que ya no tengas que hacer eso de la fórmula, ¡Las macros también saben sacar cuentas!

Por favor, enséñeme a sacar el código y discúlpeme por mi ignorancia
sneider

Ok el código de la macro lo sacas con Alt + F11 normal mente las macros se encuentran en el módulo1
Visita Mi Página en el capitulo 1 tienes como entrar al editor de Visual Basic for Applicartions
No tienes por que ofrecer disculpas cuando quieres aprender ofrecelas cuando no quieras.
Suerte y hasta pronto, Grecko.

Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
....
.....
Range("J9").Select
ActiveCell.FormulaR1C1 = TextBox10
boton insertar
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox1.SetFocus
 boton buscar
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
boton eliminar
Selection.EntireRow.Delete
Range("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox1.SetFocus
Espero que estos sean los código los primeros van de la columna A hasta la J
Gracias.

Je je no entiendo nada, mejor mandame el archivo y nos vemos en el msn [email protected], solo para el msn no para correos

Ya entre y no te veo me puedes mandar el correo a [email protected]

Hola amigo, lo que te he escrito es lo que he codificado en cada texbox, son 10
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
....
.....
Range("J9").Select
ActiveCell.FormulaR1C1 = TextBox10
en el boton insertar  lo codifique asi:
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox1.SetFocus
En el botón buscar así:
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
Y en el botón eliminar así:
 Selection.EntireRow.Delete
Range("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox1.SetFocus