Macro copy data from multi sheets to other sheet

[ste33uka]

Hi would any on have a macro code that would copy data from sheets 6,7,8,9,10 cells A70 to F130 to the next available row on a sheet called 'DATA'
My sheet names are just 6,7,8,9,10
Thanks

 

[Fluff]

The other workbook doesn't need to be macro enabled.
Does it make any difference if you do

With ThisWorkbook.Sheets(CStr(i))

 

[ste33uka]

The other workbook doesn't need to be macro enabled.
Does it make any difference if you do

With ThisWorkbook.Sheets(CStr(i))

what i mean is i would like other workbook to be macro enabled, but it wont copy to that workbook if its macro enabled.

 

[Fluff]

It will copy to the other workbook regardless of whether it's macro enabled or not, just make sure you use the correct filename including extension.

 

[ste33uka]

.

 

[ste33uka]

It will copy to the other workbook regardless of whether it's macro enabled or not, just make sure you use the correct filename including extension.

Would you have a similar macro that would copy cells A70:F130
from workbook1 sheets1,2,3,4,5,6,7,8,9,10
to workbook2 sheets 1,2,3,4,5,6,7,8,9,10.
So 1 goes to 1 , 2 goes to 2 etc.

 

[Fluff]

That is a different question & therefore needs a new thread. Thanks.