Copy & Paste values in adjacent cell

try..

Sub ptest()
    Dim e, d#, a#
    For a = 1 To 2
        d = 1
        For Each e In Split(Range("A" & a), " ")
            Cells(3 + a, 1 + d) = e
            d = d + 1
        Next
    Next
End Sub