Private Sub CommandButton2_Click()

Range("A4").Select

ActiveCell.FormulaR1C1 = TextBox1

Range("b4").Select

ActiveCell.FormulaR1C1 = TextBox2

Range("c4").Select

ActiveCell.FormulaR1C1 = TextBox3

Range("D4").Select

ActiveCell.FormulaR1C1 = TextBox4

Range("e4").Select

ActiveCell.FormulaR1C1 = TextBox5

Selection.EntireRow.Insert

TextBox1 = Empty

TextBox2 = Empty

TextBox3 = Empty

TextBox4 = Empty

TextBox5 = Empty

TextBox1.SetFocus