Merging VBA into one.

Please help

Here is my code, I need it all to run under one single keyboard shortcut, currently I have to do 2.

Sub TimeSheet()
'
' TimeSheet Macro
'
' Keyboard Shortcut: Ctrl+w
'
    Sheets(Array("Jun 13", "Lst")).Select
    Sheets("Jun 13").Activate
    Sheets(Array("Jun 13", "Lst")).Copy
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("Lst").Select
    ActiveWindow.SelectedSheets.Visible = False

End Sub
Sub SaveAsA1()

    ThisFile = Range("F2").Value
    ActiveWorkbook.SaveAs Filename:=ThisFile
    ActiveWindow.Close

End Sub

Can anyone assist?