Pie de página ultima hoja de rango variable

Tengo una hoja de excel con varias macros, en una de ellas tengo un comando que me genera un pie de página con una imagen en jpeg de un rango en función de unos datos. El problema es que me lo genera en todas las páginas de la vista preliminar, y yo quiero que se a en la ultima de las páginas de ese rango variable, adjunto el código que tengo ahora:

'Aplicar área de impresión

Dim ultimafila As Integer

ultimafila = Range("G1")

'la variable guarda la última fila

With ActiveSheet.PageSetup

Range("G1:H" & ultimafila).Select

ActiveSheet.PageSetup.PrintArea = Selection.Address

End With

Set h1 = Sheets("ANEXO III")

    Set h2 = Sheets.Add

    ruta = ThisWorkbook.Path & "\"

    nombre = Sheets("ANEXO III").Range("I2")

    archivo = ruta & h1.[D1] & nombre & ".JPEG"

    '

    Rango = "M129:O140"

    '

    With h1.Range(Rango)

        fi = .Cells(1, 1).Row

        ff = .Rows.Count + fi - 1

        ci = .Cells(1, 1).Column

        cf = .Columns.Count + ci - 1

        izq = .Cells(1, 1).Left

        der = h1.Cells(1, cf + 1).Left

        baj = .Cells(1, 1).Top

        arr = h1.Cells(ff + 1, 1).Top

        anc = der - izq

        alt = arr - baj

    End With

    '

    h1.Range(Rango).CopyPicture

    h2.Shapes.AddChart

    With h2.ChartObjects(1)

        .Border.LineStyle = 0

        .Width = anc

        .Height = alt

        .Chart.Paste

        .Chart.Export archivo

        .Delete

    End With

    Application.DisplayAlerts = False

    h2.Delete

    Application.DisplayAlerts = True

With Sheets("ANEXO III").PageSetup.CenterFooterPicture

'NOMBRE DEL ARCHIVO

ruta = ThisWorkbook.Path & "\"

nombre = Sheets("ANEXO III").Range("I2")

archivo = ruta & h1.[D1] & nombre & ".JPEG"

.Filename = archivo

End With

Sheets("ANEXO III").PageSetup.CenterFooter = "&G"