Processes in Microsoft 365 for setting up Office apps, redeeming product keys, and activating licenses.
This can be done by using formulas or macro. I prefer macro. :-)
I assume that the PDF data is in column A and the data blocks are all equal in size.
Are they not, then you have to adjust the size. I can not that for you, unfortunately, you have not given enough information about your data structure.
Andreas.
Sub TransposeData()
Dim FromR As Range, ToR As Range
'First vertical data
Set FromR = Range("A1:A6")
'First cell for horizontal data
Set ToR = Range("C1")
Do
'Copy vertikal data
FromR.Copy
'Transpose it to horizontal
ToR.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'Setup Range to next data
Set FromR = FromR.Offset(FromR.Rows.Count, 0)
Set ToR = ToR.Offset(1, 0)
'Loop until empty cell is found
Loop Until IsEmpty(FromR(1, 1))
End Sub