Macro copy data from multi sheets to other workbook

[ste33uka]

Would you have a macro that would copy data from cells copy cells A70 to 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 date from 1 goes to 1 , 2 goes to 2 etc.
My sheets are just called 1,2,3,4,5,6,7,8,9,10
Thanks

 

[onlyadrafter]

Hello,

Sub COPY_BOOK_1_TO_2()
    Application.ScreenUpdating = False
    With ActiveWorkbook
        For MY_SHEETS = 1 To 10
            With Sheets(MY_SHEETS)
                .Range("A70:F130").Copy
                Workbooks("Book4").Sheets(MY_SHEETS).Range("A70").PasteSpecial (xlPasteAll)
            End With
        Next MY_SHEETS
    End With
    Application.ScreenUpdating = True
End Sub

you will need to change 'Book4' to your destination spreadsheet name.

Have made some assumptions, both workbooks are open and sheet/tab name 1 is the left most tab and they go in order.

 

[JLGWhiz]

You can substiture the workbook names for the index numbers.

Sub t()
For i = 1 To 10
  Workbooks(1).Sheets(CStr(i)).Range("A70:F130"),Copy Workbooks(2).Sheets(Cstr(i)).Range("A1")
Next
End Sub

If you want to copy to the same range of cells, why not just do a saveas to duplicate the source workbook?

 

[ste33uka]

Thanks for both suggestions

 

[JLGWhiz]

Happy to assist,
regards, JLG