VBA to transpose data on multiple sheets from single column to rows

How about this one

Please Login or Register  to view this content.

Hi JEC,

Thanks very much for your help.

When I run the code it stops at this line:

For Each sh In Sheets

It doesn't open the debugger just highlights the row in yellow.

Best wishes
Bob

@pixifaery
Try to add bolded line

Please Login or Register  to view this content.

pixifaery,
try

Please Login or Register  to view this content.

Try thisworkbook.sheets

Hi Everyone,

Thanks very much for your help. They all work but the best solution is from jindon because the code loops through extra rows for 3 issues or more. That was my fault though because I didn't specify that clearly in my request.

Thanks again for your help :-). You are all legends!!
Bob

Hi Marvin,

Thanks for your code! I get a run time error at the following line:

Set rg1 = ws1.Range("A:A").Find("*Order No:*").CurrentRegion.

This post is solved (and I will mark it that way) but I'm happy if you want to keep working on this and I'll keep checking back :-)

Kind regards
Bob