Concatenate a range of cells in a range of cells

[M_F]

Hello!

Thank you in advance for your help.

I´m really new at Excel VBA and I'm trying to code something too complex for my newbie skills...


Input: I have column A with some lines of text like this:


Separator string <------------------
line1
<blank cell>
line2
<blank cell>
<blank cell>
line3
line4
<blank cell>
Separator string <------------------
<blank cell>
line 5
line 6
<blank cell>
Separator string <------------------
line 7
<blank cell>
<blank cell>
Separator string <------------------
line 8
.......


I would like to have an Output in column B that concatenates in a cell each set of cells within a Separator string:

Cell B1 :
line1
<blank cell>
line2
<blank cell>
<blank cell>
line3
line4
<blank cell>

Cell B2:
<blank cell>
line 5
line 6
<blank cell>

Cell B3:
line 7
<blank cell>
<blank cell>

Cell B4:
line 8
.......


Could you help me?
Thank you very much

 

[Norie]

Is this what you would want as a result?

line1, , line2, , ,line3, line4,

,line5, line6,

line7, ,

line8

 

[M_F]

Thank you for your help.

The lines are pasted from a text file. They have newline in the end. I would like that they maintain the line breaks (some "lines" have some paragraphs on them).