Simplificar una macro en excel usando variables

Con gusto te ayudo, dime la macro tiene que leer la hoja "Summary" o puede ser que lea directamente la hoja "ALL" y de ahí genere los PDF

Todas las notas están en la hoja "ALL"

no tengo ningún problema en que lea de la hoja 'ALL' .Solo hay que tener en cuenta que la longitud de los datos en la hoja 'ALL' puede ser variable. En el ejemplo que te envíe creo que hay 5 notas de entrega con datos y una sexta sin datos pero en otras ocasiones puede haber 15 con datos. La hoja 'Summary' me dice de una forma rápida cuantas tengo pero para la macro puedes usar la que quieras. El rango es siempre el mismo , 25 lineas por nota de entrega y 5 columnas

Millones de gracias !!!!

Puedes probar la siguiente macro.

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel y en tu hoja "ALL"
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: guardarpdf
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub guardarpdf()
'por.dam
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Workbooks(ThisWorkbook.Name).Sheets("ALL")
ruta = ThisWorkbook.Path & "\"
h1.Activate
For i = 4 To Range("D" & Rows.Count).End(xlUp).Row
    Workbooks.Open Filename:=ruta & "base.xlsx"
    Set h2 = Workbooks(ActiveWorkbook.Name).Sheets("hoja1")
    h1.Activate
    Range("A" & i & ":D" & i + 20).Select
    Selection.Copy
    h2.Activate
    h2.Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Nuevonombre = ruta & Range("D10")
    'ActiveWorkbook.SaveAs Filename:=ruta & Range("D10") & ".xlsx", _
        FileFormat:=51, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nuevonombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
    ActiveWorkbook.Close
    i = i + 24
Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MsgBox "Proceso de copiado de notas Terminado", vbInformation, "NOTAS"
End Sub

Yo no tengo la librería para guardar archivos en pdf, prueba cómo te resulta con la macro , si tienes problemas me avisas y realizo los ajustes.

Saludos. Dam
Si es lo que necesitas.