convert crosstabs into flatfile

I wanted to convert the file crosstabs2 into a flatfile like is done in the kong example. However, I was not able to understand the steps taken in the kong file and was not able to transfer the steps into the crosstabs2 file.

Can anyone help me with the VBA code for:
- transferring the crossfiles into flat file
- coding where the file might stop -> this crosstabs2 file might change in format so the code should know where to start and stop and adjust to changes.

In this description you can find the different steps needed to do this:
A1 frage
+1down to "interest"
+1down
IF text = "interest category"
+2down = start list "categories"
down util text is 'total'
IF total +1down = no text
THEN total +2down = new 'Frage'
-> loop same steps until no more Frage in text after 2down after 'total'
IF total +1down = text
THEN total +1down = "interest category"
-> loop same steps from last "interest category" starting point

IF no text -> +1down = "interest category"
+2down = start list "categories"
down until text is 'total'
'total' +2down is new 'Frage'
-> loop same steps until no more Frage in text after 2down after 'total'

Thanks,
Frederic.

AttachmentSize
Kong example.xlsm72.54 KB
Cross Tabs 2.xlsm13.22 KB