Excel VBA循环：复制列表中的ID，粘贴，打印每个

Question

我需要为AQ列中列出的每个ID生成一个PDF。我正在尝试编写一个代码：

1. 复制第一个ID号
2. 将其粘贴到报告模板的输入单元格
3. 将工作表另存为pdf
4. 对下一个ID号重复此操作，依此类推，直到列为空。

这是我到目前为止的代码

Sub GeneratePDF()

Dim r As Range, cell As Range
Set r = Range(Range("AQ1"), Range("AQ1").End(xlDown))

For Each cell In r

Sheets("Specialist Roster").Select
Range("H2").Select
Selection.Copy
Sheets("Weekly Productivity").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

ManagerName = Range("O5").Value
SpecialistName = Range("Q1").Value
Folder = Range("Q2").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\sdevereueawax\Desktop\Weekly Productivity Reports\" & ManagerName & "\" & SpecialistName & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=True, _
    OpenAfterPublish:=False

End Sub