Concantenate Help. Excel 07 VBA

[SirSchiz]

Hi All,

I Need a bit more help please. What's the best way to do this? I would like to Concantenate the data between each occurrence of X1 to "D1" for the first section, skip a row, repeating Concatenating until there are no more occurrences.
The data in-between each occurrence of X1 varies in size and it looks like this:

This is how the data looks:

X1
adsfasdfasdf
asdadfadsfdsasdf
dsasdf
X1
asdfasdfasdf
aasdfasdf
X1
asdfasdf

Any direction is appreciated. Please let me know if this doesn't make a bit of sense.

 

[GlennUK]

That doesn't make sense ... what does to "D1" mean? What output are you expecting exactly?