Macro Needed to Move Info from Column A to Column B and C

NoSparks · #2 03-31-2018, 01:16 PM

You're not telling us where your data starts in column A, if there are blank cells in column A, nor if these are the only letters possible.
It's hard to beat an actual spreadsheet for showing typical data and its layout.

That being said, based on what you've illustrated, maybe this...

Code:

Sub MoveData()
Dim cl As Range, ray As Variant
For Each cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
    ray = Split(cl.Value, " ")
    cl.Offset(-1, 1).Value = ray(0)
    cl.Offset(-1, 2).Value = ray(1)
    cl.ClearContents
Next cl
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Move Selection to the next Column on a Page (Not a table)	GuitarForLife	Word VBA	7	02-09-2018 01:59 PM
MSP 2013 - A new column needed a bit like resource names	Peasy	Project	5	09-18-2014 01:11 PM
Parsing 'FullName' column - help needed text to column	ScottA	Excel Programming	3	05-06-2014 12:49 PM
Columns. How to move the left column so it's to the right of the 'right' column ?	Vit	Word	9	11-21-2012 12:57 PM
Fill column with other columns info	Novice	Excel Programming	10	07-28-2011 09:45 AM