Macro Stops running after paste values

Hi,

Looking to see if anyone can offer any advice. I have macro that takes data from sheet and then pastes it onto a new sheet. It should then delete the data from the old sheet and hide that sheet. The problem I have is the macro stops after the paste special and does't complete the rest of the code.

Does anyone know why this happening?

Sub Dailytoweek()

Sheets("Weekly Report").Visible = True
Sheets("Process").Visible = True
Sheets("Process").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Weekly Report").Select
Range("A10000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Process").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Process").Visible = False
MsgBox "Completions Updated"

End Sub

Thanks for your help in advanced!

Thanks for your help,

Just tried this and still having the same problem. As soon as the data has been pasted it stops.

Really confused as I don't understand why.

There is,

the code in the worksheet is:

Please Login or Register  to view this content.

Originally Posted by AlphaFrog

Is either sheet protected?
Do you have any merged cells on either sheet?
Do you get an error message? If yes, what?

None of the sheets are protected, no merged cells and no error messages.