Преобразовать диапазона excel в PDF - VBA

Формулировка задачи:

Добрый день, Мне нужна ваша помощь. Нашел в интернете макрос для преобразовать диапазон excel в PDF, но мне приходиться писать для каждого диапазона отдельный макрос. Зарание скажу диапазонов гдето 150 Вопрос можноли упростить макрос ? Зарание всем спасибо.

Sub PDF()
Filename$ = ThisWorkbook.Path & "" & Range("D9") & "_" & "TEST" & "_" & Range("AL9") & "_" & "SALARY" & ".pdf"
Dim vRetVal
On Error Resume Next
Set vRetVal = Range("A9:AK9")
If vRetVal Is Nothing Then
MsgBox "Zadaniye prervano", vbCritical, "Netu dannix"
Exit Sub
End If
vRetVal.ExportAsFixedFormat xlTypePDF, Filename$
PDF2
End Sub
Sub PDF2()
Filename$ = ThisWorkbook.Path & "" & Range("D10") & "_" & "TEST" & "_" & Range("AL10") & "_" & "SALARY" & ".pdf"
Dim vRetVal
On Error Resume Next
Set vRetVal = Range("A10:AK10")
If vRetVal Is Nothing Then
MsgBox "Zadaniye prervano", vbCritical, "Netu dannix"
Exit Sub
End If
vRetVal.ExportAsFixedFormat xlTypePDF, Filename$
PDF3
End Sub
Sub PDF3()
Filename$ = ThisWorkbook.Path & "" & Range("D11") & "_" & "TEST" & "_" & Range("AL11") & "_" & "SALARY" & ".pdf"
Dim vRetVal
On Error Resume Next
Set vRetVal = Range("A11:AK11")
If vRetVal Is Nothing Then
MsgBox "Zadaniye prervano", vbCritical, "Netu dannix"
Exit Sub
End If
vRetVal.ExportAsFixedFormat xlTypePDF, Filename$
PDF4
End Sub

Решение задачи: «Преобразовать диапазона excel в PDF»

textual
                            Листинг программы 
                        

                            Private Sub SaveToPDF2()
    For iRow& = 0 To 149
        With Range("A9:AK9").Offset(iRow&)
             If Application.CountIf(.Item(1, 37), ">0") Then
                .ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & .Item(1, 4) & "_TEST_" & .Item(1, 38) & "_SALARY.pdf"
             Else
                Debug.Print "Не сохранено, ибо не >0"
             End If
        End With
    Next
End Sub
                        