I'm trying to create a Macro to use sendkeys command to copy the value of a cell and paste on another application. It goes like this:

[Abulean2010]

Sub CreatePDFFourms()
Dim PDFTemplateFile, NewPDFName, SavePDFFolder, LastName As String
Dim Year As Date
Dim CustRow, LastRow As Long
With Sheet32
LastRow = .Range("E9999").End(xlUp).Row
PDFTemplateFile = .Range("C3").Value
SavePDFFolder = .Range("C4").Value
ThisWorkbook.FollowHyperlink PDFTemplateFile
Application.Wait Now + 0.00006

For CustRow = 9 To 9
LastName = .Range("J" & CustRow).Value
Year = .Range("K" & CustRow).Value
Application.SendKeys "{Tab}", True
Application.SendKeys LastName, True
Application.Wait Now + 0.00001

Application.SendKeys "{Tab}", True
Application.SendKeys .Range("K" & CustRow).Value
Application.Wait Now + 0.00001