On 6 Jun, 12:28, JohnP wrote:
Hi,

I need a macro that will copy a vertical set of data from one worksheet at a
time across all worksheets except one called "master" and paste that data
horizontally onto the next free row down on the master sheet starting with
row 2.

I also shell of a code that will allow some code I have written to be
applied to one worksheet at a time for all worksheets except one called
"master".

Let me know if you need more information. thanks in advance for any help you
can offer.

John P

Hi John,

Here is some code (untested!)

dim xSht as worksheet
for each xSht in Sheets
if xSht.Name < "Master" then
xSht.Range("A1:A50").copy ' <-- The range on each sheet you want
to copy
Sheets("Master").Range("A" & Cells(65536,1).end(xlup).row
+1).pastespecial xlValues, , , True '<-- On Master Sheet In column A
goto Next Available row and transpose Data
endif
next xSht

If you get any problems then let me know,

Regards,

James