Why is this programing not working? it gets stuck selecting the cells to
paste. The reason I am copying and pasteing then coping and pasteing values
it because I am pasteing into a sheet with merged cells.

Sheets("Daily").Select
Range("A9:P63").Select
Selection.Copy
Sheets("email").Select
Range("A9:P63").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False