Copy and paste/ delete ranges from mulitpuls sheets macro

I think I am making this way more complicated than it needs to be...

I have a doc with 33 pages. First two are Named "Names" and "Reports" the rest start named only by number as in 1,2,3,4,5,6 all the way to 31.
I am trying to create two different macros. Or preferably one with two main functions... Jan attendance MWT.xls

In this excel doc the sheets listed from 1 to 31 are days of the month. Each page adds points used and earned each day. On the Names page I set their starting points for the month (which are their ending points from the last month)

FIRST FUNCTION
I want a macro to copy the values from (sheet33 "31"/ Range("E6:E57").) and past them in (Sheet1 "Names"/Range("E6:E57").) and return to the Names Screen.

SECOND FUNCTION
Each page (after the frist two) is identical and I want to delete three ranges (Range("D6:G57,J6:N57,M1:M3").) on those pages and return to the Names Screen.



I have had these at one point both working but never at the same time... I always get errors in one or the other...

Sub PointSwap()

Sheets("31").Range("E6:E57").Copy Sheets("Names").Range("E6:E57").End(xlToLeft).Offset(0, 2)
Sheets("names").Range("E6:E57").End(xlToLeft).CurrentRegion.Value = Sheets("Names").Range("E6:E57").End(xlToLeft).CurrentRegion.Value
Sheets("names").Select
End Sub

Sub Delete()

Sheets (Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _
"16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31"))
Range("D6:G57,J6:N57,M1:M3").Select
Selection.ClearContents
Sheets("names").Select