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!