Переберите диапазон, чтобы заполнить форму

Question

Я работаю над программой, которая будет создавать обложки для проектов.

Все исходные данные хранятся на вкладке «данные», и при поиске они заполняются на вкладке «1034»

Ячейка P2 на листе «1034» содержит номер проекта, а послесохраняя эту форму в PDF, следует установить следующее значение в диапазоне проектов в 'data'

Ниже приведено то, что у меня есть до сих пор

Sub Generate1034()
   'Select Project # Cell, set value to start
   Range("P2").Value = Range(Application.Worksheets("Data").Range("A3"))

   'Set range on 'data' from A3:(empty cell)
   Range (Application.Worksheets("Data").Range("A3").Select)
   Do Until IsEmpty(ActiveCell)

   'Save Parameters
   Application.Worksheets("1034").Range("P2") = Format(x, "000")
   Dim SaveName As String
   SaveName = ActiveSheet.Range("P33").Text
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\1034\" & _
       SaveName & ".pdf"\

   'Set P2 to the next value in range
   Range("P2").Value = Range(Application.Worksheets("Data").Range("A3"))

   Loop
 End Sub

Это предыдущий код, которыйон продолжался, но я хотел бы сделать его немного более гибким, если размер диапазона изменится.Это будет искать '001' на данных и возвращать значение из colB

Sub SaveAs()
   For x = 1 To 5
   Application.Worksheets("1034").Range("P2") = Format(x, "000")
   Dim SaveName As String
   SaveName = ActiveSheet.Range("P33").Text
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\1034\" & _
       SaveName & ".pdf"
    Next x
 End Sub