¿Modificar Código de Macro para libros xls?

Dante tiempo atrás me ayudaste con una macro que se ejecuta excelente en libros xlsx, pero con libros xls la fecha en columna (B) queda sin formato cuando debería dejar la fecha bien escrita adjunto imagen:

Como información de la características de los archivos xls te adjunto la siguiente imágenes:

Cuando lo abro manualmente :

Cuando guardo cualquier cambio manual predeterminadamente se define como página web :

¿Este es tu código con el que me ayudaste hace tiempo el cual te consulto si se puede modificar para que se ejecute bien con las condiciones del libro xls? :

Sub Ejecutar_Macro()

Application.ScreenUpdating = False
ruta_inicial = "C:\Users\admin\Desktop\PROTOTYPE\"
arch_inicial = "Octubre 18.xls"
'
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder(ruta_inicial)
For Each subcarpeta In carpeta.subfolders
If Dir(subcarpeta & "\" & arch_inicial) <> "" Then
Set l2 = Workbooks.Open(subcarpeta & "\" & arch_inicial)
'
'INICIA CÓDIGO
'
l2.Activate
Set h2 = l2.Sheets(1)
h2.Range("B:F").EntireColumn.Insert
u = h2.Range("A" & Rows.Count).End(xlUp).Row
h2.Range("B10:B" & u).Value = 4
h2.Range("C10:C" & u).Value = 2018
h2.Range("D10:D" & u).Formula = "=DATE(RC[-1],RC[-2],RC[-3])"
h2.Range("D10:D" & u).Copy
h2.Range("E10").PasteSpecial xlPasteValuesAndNumberFormats
h2.Range("A9").Copy
h2.Range("F10").PasteSpecial xlPasteValuesAndNumberFormats
'Application.CutCopyMode = False
h2.Range("F11:F" & u).Value = h2.Range("F10")
'h2.Columns("F:F").Select
'h2.Range("F7").Activate
With h2.Columns("F:F")
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = -1
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
h2.Range("F8").FormulaR1C1 = "SUCURSAL"
h2.Range("E8").FormulaR1C1 = "FECHA"
h2.Range("B:D").EntireColumn.Delete
h2.Rows("9:9").Delete Shift:=xlUp
'guardar libro 2 y cerrar
l2.Close True
End If
Next
MsgBox "Fin"
End Sub