Help with Text to Columns in VBA

[ttbuson]

I have a macro that imports data from the web and puts it into four different columns- A, H, O, and V. I'd like to space the web data out over 7 columns (so from A through G for the first column of data, H through N for the second column of data, and so on). When I tried using this piece of code multiple times, the debugger told me it could only be used on one column at a time. Does anybody know how to apply it to multiple columns in one macro?

Thanks in advance!

Range("A10").CurrentRegion.TextToColumns Destination:=Range("A10"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                Semicolon:=False, Comma:=True, Space:=False, Other:=False

 

[venkat1926]

Is it because the entries are too long for a conventional column


suggestion
1.text to columns and park data in adjacent columns
2.inserts the required number of column in between columns
3.merge the columns for e..g. A to G and make horizontal alignment as "centger"

 

[ttbuson]

Thanks for the advice. Could you give some more guidance? I tried using some code I found on a forum, but it is not working. Do you have any code examples or would you mind helping me get started?

Thanks!

 

[venkat1926]

post a small extract of your data and explain again with respect to this ample date what you want.