السلام عليكم
جرب الملف
الملف يحول  ملف الاكسل الى PDF في المجلد D حسب البيانات والصفوف التي بها بيانات ويتجاهل اي بيانات بعد الصف 999
DFP1.xlsb

عبدالله بشير عبدالله

عذرا  
جرب الملف 
DFP1.xlsb

استاذ عبدالله هل يمكن الحل بهذا الكود 
لان الكود الذي ارسلته طويل جدا 
وانا اضع الكود ضمن اكواد طويله

[ltr][color=#000000]          Range("A2:z999" & Cells(Rows.Count, 1).End(xlUp).Row).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & " " & Range("AA1").Value _
    & " " & Format(Now, "yyyy-mm-dd,hh.mm"), Quality _
    :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
If a = vbNo Then End[/color][/ltr]

السلام عليكم 
الكود المرفق من طرفكم لا يستبعد الصفحات الفارغة بل يحول النطاق كله الى PDF
و واسنبعاد الصفحات الفارغة حسب طلبكم  يحتاج الى  اظافة اوامر بالكود

كود بواسط الفلترة
Sub SaveRangeAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    Set ws = ThisWorkbook.Sheets("ورقة1")
    With ws
        .Range("A1:Z999").AutoFilter Field:=1, Criteria1:="<>"
        savePath = "D:" & .Range("AA1").Value & " " & Format(Now, "yyyy-mm-dd,hh.mm") & ".pdf"
        .Range("A1:Z999").ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        .AutoFilterMode = False
    End With
    MsgBox "تم حفظ  الملف بنجاح!", vbInformation, "حفظ PDF"
End Sub
[*]

• يعتمد الكود على وجود بيانات في العمود الأول. إذا كانت البيانات الأساسية موجودة في عمود آخر، قد تحتاج إلى تعديل الرقم في
  
  CODE

  Field:=1

  
  .
  

DFP2.xlsb