Run-Time error 1004 when VBA run Text-To-Column

Question

Expert,
  I got error message 1004 said "Excel can convert only column at a time, The range can be many rows tall but no more than one column wide, try again by selecting cells in one column only. my VBA code is this. If I copy B5 only, the Text-To-Column
is working. can you help ?
Sheets("Sheet1").Range("B5:E300").Copy
    Sheets("Sheet2").Select
    Range("A2:E300").PasteSpecial xlPasteAll
    Columns("B:M").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, 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)), _
        TrailingMinusNumbers:=True
Thanks
James Liang

Answer 1

Re:  text to columns error
You have four columns selected when you call text to columns, so ...
Replace the word "Selection" with Range("A1:A300") so it looks like...
  Range("A1:A300").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
The above is my guess as to what you want to work with; I didn't experiment with the rest of the code.
Jim Cone
Portland, Oregon USA
free & commercial excel programs (n/a xl2013)
https://jumpshare.com/b/O5FC6LaBQ6U3UPXjOmX2