I was hoping i could get a hand in cleaning this up a little.. It works but its sloppy.. i would like to have them all combined into one macro but dont know how to determine which portion of the code is what.. calling other macros worked for me as im a macro noob..

Code:
Sub New_Week()
    Call Warning
End Sub
Sub Warning()
'
' This is the Warning box
'
    YesNo = MsgBox("This will clear the spread sheet do you wish to continue??", vbYesNo + vbCritical, "Caution")
    Select Case YesNo
    Case vbYes
    Call Date_entry
    Call Clear_All
    Case vbNo
    End Select
End Sub


Sub Date_entry()
' Enter Date
' This enters The date in Daily Totals and Draws Sheets
'
    returnvalue = InputBox("Insert the Start Date for this spreadsheet", "New Week")
    Sheets("Daily Totals").Range("H1") = returnvalue
    Sheets("Draws").Range("B1") = returnvalue
    
End Sub


Sub Clear_All()
'
' Clear All Macro
' This Macro will CLEAR all sheets and Ask for new date!!
'
'
' Daily Totals

    Sheets("Daily Totals").Select
    Range("F5:U40").Select
    Selection.ClearContents
    Range("F44:U78").Select
    Selection.ClearContents
    Range("F82:U119").Select
    Selection.ClearContents
    Range("X5:AM40").Select
    Selection.ClearContents
    Range("X44:AM78").Select
    Selection.ClearContents
    Range("X82:AM119").Select
    Selection.ClearContents
    Range("AP5:BE40").Select
    Selection.ClearContents
    Range("AP44:BE78").Select
    Selection.ClearContents
    Range("AP82:BE119").Select
    Selection.ClearContents
    Range("BH5:BW40").Select
    Selection.ClearContents
    Range("BH44:BW78").Select
    Selection.ClearContents
    Range("BH82:BW119").Select
    Selection.ClearContents
    Range("BZ5:CO40").Select
    Selection.ClearContents
    Range("BZ44:CO78").Select
    Selection.ClearContents
    Range("BZ82:CO119").Select
    Selection.ClearContents
    Range("CR5:DG40").Select
    Selection.ClearContents
    Range("CR44:DG78").Select
    Selection.ClearContents
    Range("CR82:DG119").Select
    Selection.ClearContents
    Range("DJ5:DY40").Select
    Selection.ClearContents
    Range("DJ44:DY78").Select
    Selection.ClearContents
    Range("DJ82:DY119").Select
    Selection.ClearContents
    Range("F5").Select
'
' Project Collections

    Sheets("Project Collections").Select
    Range("E5:AJ40").Select
    Selection.ClearContents
    Range("E46:AJ79").Select
    Selection.ClearContents
    Range("E85:AJ120").Select
    Selection.ClearContents
    Range("E5").Select
'
' Draws Delete

    Sheets("Draws").Select
    Range("B3:B110").Select
    Selection.ClearContents
    Range("D3:D110").Select
    Selection.ClearContents
    Range("F3:F110").Select
    Selection.ClearContents
    Range("H3:H110").Select
    Selection.ClearContents
    Range("J3:J110").Select
    Selection.ClearContents
    Range("L3:L110").Select
    Selection.ClearContents
    Range("N3:N110").Select
    Selection.ClearContents
    Range("Q3:Q110").Select
    Selection.ClearContents
    Range("S3:S110").Select
    Selection.ClearContents
    Range("A3").Select
'
' Return
    
    Sheets("Daily Totals").Select
    Range("F5").Select
    
    
End Sub