Formato al insertar filas

Hola, estoy intentado diseñar una macros sencilla con varios formularios. En principio parece que inserta las cosas en su celda conrrespondiente, pero el TextForm en vez de pegar los datos tal y como se escriben en el textform o de la manera en que introduzco el formato de la celda se cambian al insertar la fila.
Una de las columnas pasa a formato fecha, otra a hora. Este es el código que implemento
Private Sub cmdAceptar_Click()
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "E1"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 2
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If
'Comienza a copiar los valores del UserForm a la hoja
Cells(fila, col).Value = TextBox1.Value
Cells(fila, col + 1).Value = TextBox2.Value
Cells(fila, col + 2).Value = TextBox3.Value
Set CeldaInicial = Nothing
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
Si alguien me puede ayudar lo antes posible se lo agradecería. Gracias de antemano