Você precisa criar outra macro ou outro código como este (no VBA):
Public Sub runMacro()
For i = 1 To 30
' Body of your macro and set the row number by i
' Cells(1, 1) = i 'Enter 1-30 numbers to cell A1
' Call pdfMacro '<pdfMacro> is your current macro
Next i
End Sub