Morning all!!

Currently using Excel 2010 and trying to streamline a few things at work.

I've manually recorded (and partially edited) a macro which I need someone to kindly help me with:
Sub Email_test()
' Email_test Macro
    Range("E4:F4").FormulaR1C1 = Format(Now, "dd / mmm / yy")
    Sheets("Master").Copy After:=Sheets(17)
    Sheets("Master (2)").Select
    Sheets("Master (2)").Name = Format(Now, "dd.mm.yy")
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
    'Application.Dialogs(xlDialogSendMail).Show
    'add email code
    Sheets("Master").Select
    Range("E4:F4").ClearContents
    Range("C18:E26").ClearContents
    Range("H18:J26").ClearContents
    Range("M18:O22").ClearContents
    Range("C33:F35").ClearContents
    Range("I33:L35").ClearContents
    Range("C41:T43").ClearContents
    Range("B47:S52").ClearContents
    Range("T47:T52").ClearContents
    Range("B54:T59").ClearContents
    Range("B61:T66").ClearContents
    Range("B71:E96").ClearContents
    Range("G71:J96").ClearContents
    Range("E4:F4").Select
End Sub
The above does pretty much what I need, puts current date in E4, makes a copy of that tab, moves it to the end of the workbook, renames it using the current date, then deletes form control button 1.

What I would like someone to do is provide me with some additions to the code to be able to:
*Move the newly created tab to the end of the workbook (and not just after tab 17 as in the code)
*Give me code that sends the workbook as an email using email addresses found in "Sheet1"

Kind Regards!!