Ayuda para corregir código de formula para que funcione

Buenas tardes tengan todos!

Tengo un código al cual le agregue una formula pero esta no pasa a la hoja que seleccione en su lugar me sale la leyenda de "Falso" todos los demás datos pasan muy bien pero la formula no, podrían apoyarme con sus sugerencia y recomendaciones para que esta funcione?

Este es el código y adjunto archivo para mejor explicación:

Sub Pasarpagos()

Sheets("Pagos").Activate

If Sheets("Pagos").Range("C7") = "" Then Exit Sub 'No hay referencia

Dim hj As String

Dim a

Dim b

Dim c

Dim d

Dim e

Dim f

Dim g

Dim h

Dim i

hj = Sheets("Pagos").Range("C7")

a = Sheets("Pagos").Range("C9")

b = Sheets("Pagos").Range("C11")

c = Sheets("Pagos").Range("C13")

d = Sheets("Pagos").Range("C15")

e = Sheets("Pagos").Range("C17")

f = Sheets("Pagos").Range("C19")

g = Sheets("Pagos").Range("C20")

h = Sheets("Pagos").Range("C21")

i = Sheets("Pagos").Range("C22")

i = Sheets("Pagos").Cells(U + 1, "J").Formula = "=J" & (U - 0) & "+" & "H" & (U + 1) & "-" & "I" & (U + 1)


With Sheets(hj).Range("B" & Rows.Count).End(xlUp)(2).Resize(1, 9)

    .Value = Array(a, b, c, d, e, f, g, h, i)

End With


End Sub[/CODE]

Como siempre agradezco por anticipado su interes y apoyo

Saludos

Pregunta corregir código para formula.zip