Primero recuerda que esto es secuencial, osea una cosa a la vez es lo que puede hacer.:
Empecemos:
1. Activamos la hoja y celda del libro en el que queramos copiar el dato o el numero,(debes de tener cuidado porque a hay que diferenciar si en un texto o un valor)
ActiveWorkbook. Sheets("Sheet2").Cells(6, 5)
ActiveCell.FormulaR1C1 = TextBox1
Con eso activamos la hoja 2 y la celda e6
Luego copiamos el dato del text como texto
Con esto copiamos el text en otra hoja pero esta vez el valor del text para que lo lea como numérico.
Ahora para insertar una celda usa este código
Range("A1").EntireRow.Insert
Y lo pones luego de haber copiado el text. Este te inserta una una fila al inicio de la hoja.
ActiveWorkbook. Sheets("Sheet2").Cells(6, 5)
ActiveCell.FormulaR1C1 = TextBox1
Range("A1").EntireRow.Insert
ActiveWorkbook. Sheets("Sheet3").Cells(6, 5)
ActiveCell.FormulaR1C1 = TextBox1.value
Range("A1").EntireRow.Insert