VBA Copy and Paste Code works once, then stops working?

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

Dear ZEROCOOL,

It looks perfectly Fine . Try as pjwhitefiled has recommended. Also try below ( not a direct relation to your problem but sometime weird problems have weird solutions. )

Use in the beginning of your code after declaring sub -- "Application.screenupdating = False "
Use at the end of your code -- "Application.screenupdating = True"

Hi

Thanks for the advice, it turns out a rouge line of data on row 13000 was the issue, no idea how it got there.

The code looks for for lowest line of data and place the copied item there, I had a lot of data from row 13000 down.

Very strange, but fixed now.

Thank you for taking the time to look, rep has been added.