incollare in unica riga o unica colonna tabella da pdf

Sub DatiV()
Dim x, y, ur, r, msg
ur = Range("A" & Rows.Count).End(xlUp).Row
r = 2
For x = 2 To ur
    msg = Split(Cells(x, 1), " ")
    For y = LBound(msg) To UBound(msg)
        If msg(y) <> "" Then Cells(r, 2) = msg(y): r = r + 1
    Next y
Next x
End Sub
'oppure orizzontale
Sub DatiO()
Dim x, y, ur, c, msg
ur = Range("A" & Rows.Count).End(xlUp).Row
c = 2
For x = 2 To ur
    msg = Split(Cells(x, 1), " ")
    For y = LBound(msg) To UBound(msg)
        If msg(y) <> "" Then Cells(2, c) = msg(y): c = c + 1
    Next y
Next x
End Sub