Split text in columns

ChrisHanisch 

Make sure that there are enough empty columns to the right of the data.

Select the data, then run the following macro:

Sub SplitEm()
    Dim rng As Range
    Dim s As String
    Dim c As Long
    Dim a() As String
    Dim i As Long
    Dim b() As String
    Dim j As Long
    Application.ScreenUpdating = False
    For Each rng In Selection.Columns(1).Cells
        c = 0
        s = Replace(rng.Value, Chr(160), " ")
        a = Split(s, Space(2))
        For i = 0 To UBound(a)
            b = Split(a(i), " x ")
            For j = 0 To UBound(b)
                rng.Offset(0, c).Value = b(j)
                c = c + 1
            Next j
        Next i
    Next rng
    Application.ScreenUpdating = True
End Sub