separate multilinecells, color them (diff color) them put them all in column A...

[FuNeS13]

ok so I have my file that some cells are multiline cells... I want to separate the multi line cells in the next column... for which I have this code:

    Columns("A:A").Select    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True

then I want that each row that has two or more columns to have a different color... Then.... each row that have more than two columns cut those cells and paste them in column A...

Does it make sense?