Split Row Data In To Multiple Columns Based On Delimiter

[princ_wns]

Try This

Sub test()
    Dim rngData     As Range
    
    With ThisWorkbook.Worksheets("Sheet1")
        Set rngData = .Range("A1").CurrentRegion
        rngData.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=True, Comma:=True, Space:=True, Other:=True, OtherChar:=""""
    End With
End Sub

Regards
Prince