Macro para copiar un rango de una hoja a otra mediante el administrador de nombres

Tengo esta macro que funciona:

( 'De Dante Amor )

Sub Ingreso()
    Set h1 = Sheets("Predefinidos")
    Set h2 = Sheets("Diario")
    For i = 9 To 11
        CUENTA = Application.CountA(h1.Range(h1.Cells(i, "F"), h1.Cells(i, "N")))
        If CUENTA > 0 Then
            u = h2.Range("G" & Rows.Count).End(xlUp).Row + 1
            h1.Range(h1.Cells(i, "F"), h1.Cells(i, "N")).Copy h2.Cells(u, "F")
        End If
    Next
End Sub

A la líneas del 9 al 11 le he dado el nombre de "Ingreso" con la finalidad de que si muevo los datos de la hoja Predefinidos quiero evitar tener que cambiar las líneas en la macro.

¿Qué tengo que rectificar en la macro?