Hi

I hope you can help.

I use a spreadsheet where standard data is input on a tab daily basis. Monday to Sunday.

At the end of the week we then copy and paste the data on to one main sheet so we can review the data as a whole.

I have some VBA knowledge so I wrote the following code and assigned it to a button to get it to work in one press. Thing is it works once, and then disables all copy and paste functions in the whole sheet. I cannot think why this code would disable all copy and paste in the sheet. Please have a look at the code and see if you can see anything I have missed.

'Copy specific range of data regardless of what is contained within
Sub MasterCopy()
Sheets("Monday").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Tuesday").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Wednesday").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Thursday").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Friday").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Saturday").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Sunday").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("B2B").Range("A4:AZ500").Copy Destination:=ActiveSheet.Cells(65000, 1).End(xlUp).Offset(1, 0)
MsgBox "Copied All Days Data", vbOKOnly + vbInformation
End Sub