No consigo que se ponga la fecha en el formato deseado a no ser que cuando cierro el formulario presione F2 + ENTER que tampoco se hacerlo automáticamente después de la inserción.

 

 

AYUDA formato deseado 27-feb-22

Consumo Total 2022_MASTER_fecha.xlsm

Buenas, cambiando estas lineas.

'TextBox1.value = Format(TextBox1.value, "dd-mmm-yy")
 Range("B" & ultimo).EntireRow.Insert
 Range("A" & ultimo).value = CDate(Format(TextBox1, "dd-mm-yy"))

inhabilita estas otras 

'     Dim Celda As Range
'    FILA = ActiveCell.Row
'    With Hoja1
'        .Cells(FILA, 1).Select
'        For Each Celda In Selection
'            Celda.value = CStr(Celda)
'        Next Celda
'    End With

si te hace falta comvertir todas las celdas , omite la de la fecha.