Columns("A:A").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 5), Array(2, 1), Array(3, 1)), DecimalSeparator:=".", _
TrailingMinusNumbers:=False