Como puedo separar datos según listado en hojas diferentes

Tengo esta macro creada por nuestro amigo Dante me gustaría que al momento de correr la macro las celdas que están formuladas las dejara con la fórmula y no que me coloque el dato calculado

Sub Descargar()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    Set h1 = ActiveSheet
    Set h2 = Sheets.Add
    ruta = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
    '
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    h1.Range("A:A").Copy h2.[A1]
    h2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    h2.Range("A1").Copy h2.Range("B1")
    For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
        h2.[B2] = h2.Cells(i, "A")
        Set l2 = Workbooks.Add
        Set h3 = l2.ActiveSheet
        h1.Range("A1:T" & u).AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=h2.Range("B1:B2"), CopyToRange:=h3.Range("A1"), Unique:=False
        l2.SaveAs ruta & "DISH TALLY SHEET " & h2.Cells(i, "A")
        l2.Close
    Next
    h2.Delete
    MsgBox "Descarga de clientes terminada", vbInformation
End Sub