Concatenate max cell limit issue

Hi, I have a macro that concatenates everything in column A as long as A<>"" and in between cell values it inserts a ",".
The issue I am running into is exceeding the max char length of a cell (32767). What I am trying to do is to include in the macro the following step.
If char length is greater than 32767, find the last "," and move the remaining rows that couldn't fit in the first cell into the next cell below and this would be a loop.
So values start from A2, goes up to A9000, and in B2 the concatenated values populate when the macro is done. Since B2 cant hold more than 32767 I would like the rest to go in B3 and so on.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Nope

you should be testing the potential length before adding the next cell.

then your code would be quite simple.

Something like this.

Please Login or Register  to view this content.

Thanks for the prompt response and solution. The macro is only running successfully if I exceed the max len. Can you please advise what I need to do if it does not exceed the max len?

Given mehmetcik suggestion, perhaps this could work if the output does not exceed the max len:

Please Login or Register  to view this content.

Sorry 1 last question, when this creates the second line, the first 2 values in the second output cell get concatenated without "," and I would also like to remove the last "," from the last cell.

Try this:

Please Login or Register  to view this content.

Minor change:

Please Login or Register  to view this content.