Sub Move_Info()

    Dim lr As Long, i As Long
    Dim ray As Variant

Application.ScreenUpdating = False

With ActiveSheet
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 3 To lr Step 2
        Set ray = Nothing
        ray = Split(.Cells(i, "A").Value, " ")
        .Cells(i - 1, "B").Value = ray(0)
        .Cells(i - 1, "C").Value = ray(1)
        .Cells(i, "A").ClearContents
    Next i
End With

Application.ScreenUpdating = True

End Sub