copying data between keywords to another sheet

Hello,

I will be grateful for the help in writing a macro that flips selected lines (located between the two words "keys") to a separate sheet. I managed to write a macro, which transfers the fragments that interest me to the same column (separates them with an empty row) - the result is in the "Sheet2" tab.
I would like the macro to move the fragments that interest me into the following columns ("Desired Output 1" tab).

Would it also be possible to leave the macro as it is now (flipping fragments into one column), but so that all the data for one company are in a single cell? ("Desired Output 2" tab).

This is my code:

Please Login or Register  to view this content.

Thanks in advance for any help!

Please Login or Register  to view this content.

I will add that the use of the following code at the end displays an error regarding different sizes of copy and paste areas (Error 1004).

Please Login or Register  to view this content.

How is it not working?

I tried to run it again but on larger dataset and it seems that the second macro is not working at all (Desired Outout 2 worksheet stays the same).

I don't understand what you mean by "stay the same".

One thing is

Please Login or Register  to view this content.

test2 is working just fine here, so no more help I can offer.

I will take a closed look at your code and try to understand it. Thank you very much!