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