Split Columns (delimter multiple space)

Try

Sub test()
    Dim r As Range
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\s{2,}"
        For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
            r = .Replace(r, Chr(2))
        Next
    End With
    Columns("a").TextToColumns [a1], 1, other:=True, otherchar:=Chr(2)
End Sub

thank you this works perfectly

Originally Posted by lilit2222

thank you this works perfectly

We do not know whose post you are referring to. You should make that clear for future readers of this thread.