Hi I am using excel 2000

I have the following code for printing each Area Managers Individual store reports

Sub CPSECompletedQuestionnairesPrintAreaManagersIndividualStores()
    Dim cell    As Range
    Dim sName   As String
        
    sName = InputBox("Enter Initials (Capitals) of AM Area you want to Print (CM, DB, ES, JD, JE, LH, LM, LMC, SC, SD or SM)")
    
    With Worksheets("Printing")
        For Each cell In .Range("B17", .Range("B17").End(xlDown))
            If .Cells(cell.Row, "a").Value = sName Then Sheets(cell.Text).PrintOut
        Next cell
    End With
End Sub
Each Individual store report prints out on 4 sheets of paper, how can the above code be changed so that the sheets print in reverse order

It will save me having to collate it all by hand, there are 78 stores x 4 sheets