.Columns("D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            .Range("A2").Resize(UBound(resultsArr, 1), UBound(resultsArr, 2)) = resultsArr
            Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
            :=DELIMITER, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
            1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
            , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
            Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _
            25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), _
            .Columns("D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
            Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array(36, 1)), _
            TextQualifier:=xlDoubleQuote,Other:=True, OtherChar _
            TrailingMinusNumbers:=True