Visual Basic - insertar Macros-Excel

no lo puedo creer no se que estoy haciendo mal.
inserto pero al insertar desaparece lo que quiero que aparezca en la casilla de excel
os pongo la formula del : CommandButton2
Private Sub CommandButton2_Click()
Selection.EntireRow.Insert
TextBox115 = Empty
TextBox110 = Empty
TextBox107 = Empty
TextBox106 = Empty
TextBox69 = Empty
TextBox72 = Empty
TextBox79 = Empty
TextBox78 = Empty
TextBox77 = Empty
TextBox76 = Empty
TextBox75 = Empty
TextBox120 = Empty
TextBox113 = Empty
TextBox111 = Empty
TextBox108 = Empty
TextBox104 = Empty
TextBox70 = Empty
TextBox71 = Empty
TextBox81 = Empty
TextBox82 = Empty
TextBox83 = Empty
TextBox68 = Empty
TextBox84 = Empty
TextBox158 = Empty
TextBox159 = Empty
TextBox162 = Empty
TextBox164 = Empty
TextBox166 = Empty
TextBox168 = Empty
TextBox170 = Empty
TextBox172 = Empty
TextBox174 = Empty
TextBox176 = Empty
TextBox66 = Empty
TextBox112 = Empty
TextBox109 = Empty
TextBox105 = Empty
TextBox88 = Empty
TextBox89 = Empty
TextBox90 = Empty
TextBox91 = Empty
TextBox92 = Empty
TextBox93 = Empty
TextBox94 = Empty
TextBox65 = Empty
TextBox141 = Empty
TextBox142 = Empty
TextBox143 = Empty
TextBox144 = Empty
TextBox145 = Empty
TextBox146 = Empty
TextBox147 = Empty
TextBox148 = Empty
TextBox149 = Empty
TextBox150 = Empty
TextBox645 = Empty
TextBox119 = Empty
TextBox115.SetFocus

Y ESTO ES LO QUE PONGO EN EL TEXTOBOX

Range("G19").Select
ActiveCell.FormulaR1C1 = TextBox115

SE SUPONE QUE QUIERO ACTIVAR TODOS LOS TEXTOBOX ANTERIOR MENTE MENCIONADOS
POR DAR UNOS DATOS,


End Sub