Copying from pdf in to Excel

[earwig999]

I've managed to open a designated .pdf via a macro and set the focus on a field to copy (to clipboard).

I'm now struggling to set focus back on to Excel to paste the information. using the AppActive function

Sub AddDesignBrief()
Dim ImportFormFile, ImportLocation As String
Dim RegisterRow, LastRow As Long
With Sheet1
LastRow = .Range("A9999").End(xlUp).Row  'Last Row
Range("A10").End(xlDown).Offset(1, 0).Select 'Select the next BLANK row
For RegisterRow = .Range("A4").Value To .Range("A4").Value
ImportFormFile = .Range("D7").Value 'Form to Open
ThisWorkbook.FollowHyperlink (ImportFormFile)
Application.Wait Now + 0.00006


Application.SendKeys "{Esc}", True
Application.Wait Now + 0.00003

Application.SendKeys "{Tab}", True
Application.Wait Now + 0.00001

Application.SendKeys ("^a"), True
Application.Wait Now + 0.00001

Application.SendKeys "^C", True
Application.Wait Now + 0.00001

AppActivate ActiveWorkbook.Windows(1).Caption

Application.SendKeys "^v", True
Application.Wait Now + 0.00001


Next
Application.SendKeys "{numlock}%s", True

End With
End Sub