Saving a file to two directories

Hi all,
I am in the final stages of a wb for setting cover for teachers at my school.

I have set up the vba for applying the correct header (based on selections in the 'menu' sheet). This vba needs to run before any vba for the actions below.

Sub AddHeaderToAll_FromCurrentSheet()
     'Add A1 from active sheet to each sheets's header
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.PageSetup.CenterHeader = ActiveSheet.Range("A1").Value
    Next ws
End Sub

I need the wb to do the following on a button click:
- Save a copy to a directory saved in the sheet 'drive' cell B1 as an excel file
- Save a PDF version to the directory in sheet 'drive' cell B2.

wb attached. Thank you in advance! Luke