Sub to compile data from col A in many identical sheets

[Max]

Hi, using xl2003. Looking for help with a sub to do this.

I'm in Sheet1. To the right of this tab, there are 60+ sheets,
identically structured, named as eg: Zone1, Zone2, etc

In each zonal sheet, in A4 down contains data
that I would like to compile into a new sheet like this:

In the new sheet,
In cols A and B, in row1 down
(xx1, xx2, etc indicatively are data in A4 down,
Zone1, Zone2, etc indicatively are the respective sheetnames)
col A = o/p the data from A4 down
col B = o/p the sheetname

xx1 Zone1
xx2 Zone1
.....
xx1 Zone2
xx2 Zone2
.....
xx1 Zone3
xx2 Zone3
etc

Then to snake over and continue the results output
into adjacent cols C and D once cols A and B are full, eg:

In cols C and D, in row1 down
xx1 Zone40 (example)
xx2 Zone40
.....
xx1 Zone41
xx2 Zone41
.....
xx1 Zone43
xx2 Zone43

And so on, outputting to yet other adjacent cols in this new sheet until its
all done.
I estimate there's around 200K+ data rows altogether in the 60+ sheets.
Thanks

 

[Max]

Missed out this line in the earlier description:
I would like to fire the sub in Sheet1

 

[Max]

Any help, pl?

I'm basically looking to append all the col A data into one long col,
with the corresponding sheetname placed in the col next to it