Concatenate cells with delimiter, new row for values after blank cells

Hi,

Have got a CSV file of religious verse, with each verse in a new row, verses separated by a blank cell:

Verse 1
abcdef
abcdefg
abcdefgh

Verse 2
abcdef
abdefg
abcdefgh

I need to import it into a database for use by an Android app, but the CSV has to be in the format of:

Tag Value
1 a,b,c
2 d,e,f

and so on.

Is it possible for a concatenate VBA function that will concatenate the rows, using a comma delimiter, but when a blank cell is encountered, to create concatenate the subsequent cells into a new row, so that it looks as per the Tag/Value combination above please?

I've looked at a few Concatenate VBA functions on here but haven't got figured out how to do it yet beyond manual range selection!

Thanks in advance!

Use Text To Columns, Fixed Width option.

Ok sample csv file posted. The left is the text, the right is an example of how ideally it would be set out. Any assistance much appreciated! Thanks.

Thanks Steffen, that worked perfectly!

JieJenn, thank you also for your efforts. Unfortunately it didn't contain a delimiter, which is crucial for Google App Engine to process the content properly.

Thanks very much indeed both! Now I'm going to go through the code and work out how you did it!