Macro, rectificar fila para que me copie la fórmula

Para Dante

Tengo esta macro que me funciona perfectamente

Sub copiar()

'por Danre Amor

Set h1 = Sheets("Diario")
Set h2 = Sheets("5") 
col = "D"
u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row + 1
For i = 1 To h1.Range(col & Rows.Count).End(xlUp).Row
If h1.Cells(i, col) = 57201 Then
h2.Range("B" & u) = h1.Range("A" & i) 'Linea
h2.Range("C" & u) = h1.Range("B" & i) 'Fecha
h2.Range("E" & u) = h1.Range("C" & i) 'Doc
h2.Range("F" & u) = h1.Range("F" & i) 'Debe
h2.Range("G" & u) = h1.Range("G" & i) 'Haber
h2.Range("H" & u) = h1.Range("H" & i)       'SALDO (Rectificar para me copie las formulas)

h2.Range("I" & u) = h1.Range("I" & i) 'Concepto
h2.Range("J" & u) = h1.Range("J" & i) 'Notas
u = u + 1
End If
Next
End Sub

Lo que necesito es que la línea que pone SALDO me copie la misma fórmula que hay en la hoja 1