Macro Mantener formato de texto en excel

Tengo una base de datos en formato texto y necesito que se conserve así, tengo el siguiente código pero cuando lo ejecuto no me conserva el formato texto

Sub Macro2()
'Por Dante Amor
Dim RutaArchivo As String
Dim sh As Worksheet
Dim ho As Worksheet
Dim l2 As Workbook
Dim i As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set sh = Sheets("Hoja1")
Set ho = Sheets("Hoja2")
RutaArchivo = "C:\Users\Liliana Peña Daza\Documents\Pruebas\"

For i = 2 To sh.Range("A" & Rows.Count).End(3).Row
Set l2 = Workbooks.Add
With l2.Sheets(1)
.Range("A1:A61").Value = Application.Transpose(ho.Range("A1:BI1").Value)
.Range("B1:B61").Value = Application.Transpose(ho.Range("A2:BI2").Value)
.Range("B4:B11").Value = Application.Transpose(sh.Range("A" & i & ":H" & i).Value)
.Range("B13:B14").Value = Application.Transpose(sh.Range("I" & i & ":J" & i).Value)
.Range("B19").Value = Application.Transpose(sh.Range("K" & i & ":K" & i).Value)
.Range("B28:B61").Value = Application.Transpose(sh.Range("L" & i & ":AS" & i).Value)
.Range("B1:B70").HorizontalAlignment = xlLeft
l2.SaveAs RutaArchivo & "20211030" & "_" & .Range("B32").Value & ".xls", xlNormal
l2.Close False
End With
Next
Application.ScreenUpdating = True
MsgBox "El proceso ha terminado", vbInformation, "Nómina electrónica"
End Sub