Hi
I'm hoping some one might be able to review this code and offer some ideas why it can take so long to run in Excel 2016.
Its a very basic copy and paste set of instructions that copies data from multiple different tabs and paste it into a single tab.
Thing is sometimes it takes a few seconds to run, and other times it can take 15 minutes. Is there anything you experts can see that I could amend to make it run more consistently?
Thanks in Advance.
'Copy specific range of data regardless of what is contained within
Sub MasterCopy()
Sheets("Monday").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
Sheets("Tuesday").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
Sheets("Wednesday").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
Sheets("Thursday").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
Sheets("Friday").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
Sheets("Saturday").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
Sheets("Sunday").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
Sheets("B2B").Range("A4:BA500").Copy Destination:=ActiveSheet.Cells(2500, 1).End(xlUp).Offset(1, 0)
MsgBox "Copied All Days Data", vbOKOnly + vbInformation
End Sub
Bookmarks