VBA Excel数据转换为PDF

这是我的VBA脚本，我使用它将Excel中的数据输入PDF文件，因此我不必多次输入数据

我的两个问题是： 是否可以同时传输所有数据？ 如何进入PDF中的最后一页或特定页

提前谢谢 多米尼克

Sub Kaufvertrag()
Dim PDFTemplate, NewPDFName, SavePDFFolder, LastName As String
Dim ApptDate As Date
Dim CustRow, LastRow As Long
With Tabelle3
LastRow = .Range("E9999").End(xlUp).Row 'Last Row
PDFTemplateFile = .Range("I108").Value 'Template File name
SavePDFFolder = .Range("I110").Value ' Save PDF Folder
ActiveWorkbook.FollowHyperlink "Mypath"
Application.Wait Now + 0.000006


For CustRow = 5 To 5 'LastRow
Verkäufer = .Range("E2").Value 'Verkäufer
Application.SendKeys "{Tab}", True
Application.SendKeys Verkäufer, True

Application.Wait Now + 0.000008


Firma = .Range("E3").Value 'Firma
Application.SendKeys "{Tab}", True
Application.SendKeys Firma, True
    
Application.Wait Now + 0.000008

Name = .Range("E4").Value 'Name
Application.SendKeys "{Tab}", True
Application.SendKeys Name, True
Application.Wait Now + 0.000008


Preis = .Range("L42").Value 'Preis
Application.SendKeys "{Tab}", True
Application.SendKeys Preis, True

Application.Wait Now + 0.000008


WN = .Range("L118").Value 'Wiedernachoben
Application.SendKeys "{Tab}", True
Application.SendKeys WN, True

Application.Wait No`enter code here`w + 0.000009

Next CustRow
End With
End Sub