Boton

Private Sub CommandButton1_Click() Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("a2").Value = ComboBox1 Range("B2").Activate ActiveCell.Value = TextBox1.Text Range("c2").Activate ActiveCell.Value = TextBox2.Text Range("d2").Activate ActiveCell.Value = TextBox3.Text Range("e2").Activate ActiveCell.Value = TextBox4.Text Range("f2").Activate ActiveCell.Value = TextBox5.Text Range("g2").Activate ActiveCell.Value = TextBox6.Text Range("H2").Value = ComboBox3 Range("I2").Activate ActiveCell.Value = TextBox7.Text Range("J2").Activate ActiveCell.Value = TextBox8.Text Range("K2").Activate ActiveCell.Value = TextBox9.Text Range("L2").Activate ActiveCell.Value = TextBox10.Text Range("M2").Value = ComboBox2 Range("N2").Activate ActiveCell.Value = TextBox11.Text Range("O2").Activate ActiveCell.Value = TextBox12.Text Range("P2").Activate ActiveCell.Value = TextBox13.Text Range("Q2").Activate ActiveCell.Value = TextBox14.Text Range("R2").Activate ActiveCell.Value = TextBox15.Text Range("S2").Activate

ActiveCell.Value = TextBox16.Text Range("A2:S2").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Selection.Font.Bold = False