Collect employee data from workbook and write data in another sheet

Hi.

I am trying to collect employee data from my workbook and write the data in two lines in another sheet. One line for salary and one line for food.

I have made this code, that runs fine the first time it meets the conditions within the For loop.
When it has written the text in the new sheet created it losses the values from the "strValues".
I can see now that what I am trying to achieve is impossible because the data I am trying to write next time is not meeting the conditions.
In the mainsheet, the employees are divided by fake headers where it should store the P-number, D-number etc for use in the employee lines later on, they change in every header.
But how do I get the loop to change the values in the "strValues" and use it until it hits a Fake header again?

I'ved tried to attach the worksheet, but there seems to be som kind of problem, so I have pastet a link and some screendumps.

Please Login or Register  to view this content.

Screenshot 2018-11-06 at 22.20.56.png
Outcome.png

The File
https://www.excelforum.com/attachmen...1&d=1541540113