Need Help About Transposed Pasting VBA CODE

Hello,

I have a document with over 1000 rows. I want to copy yellow areas ( Which has "1" value in the "A" Column. and and it will copy the columns until "MISC" word, For example first area is from "B5 to J9" )
and paste them to another sheet as transposed. I need a VBA code which runs successively.

I will be glad for your help.


***First picture is from main file, and the second one is the expected result.

Administrative note

Welcome to the forum

in your haste to solve your problem, you probably missed the yellow banner advising how to get answers faster by posting a sheet ?

Please take a moment to read it and attach a sheet accordingly.

Thanks you for helping us help you

crossposted: https://www.mrexcel.com/board/thread...sting.1128893/

Rule 03: Cross-posting Without Telling Us

Your post does not comply with Rule 3 of our Forum RULES. Do not cross-post your question on multiple forums without telling us about your threads on other forums.

Post a link to any other forums where you have asked the same question.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Read this to understand why we ask you to do this.

I have added the crosspost reference for you today. Please comply with this and all our rules in the future

And it's actually been resolved over there ...