Private Sub CommandButton7_Click()
With Selection
Selection.EndKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.InsertRowsBelow 1
Selection.HomeKey Unit:=wdRow
Selection.EndKey Unit:=wdColumn
Selection.TypeText Text:=TextBox13.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox14.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox15.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox16.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox17.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox18.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox19.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox20.Text
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=TextBox21.Text
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
End With
End Sub