Print Userform: Control number of Copies Printed

Hello,
I have a macro that selects and prints a range of interest (works perfectly)

However, I have found that the people who are using this frequently have to print more than one copy of the selected range. So they either have to hit the button 15 times or select the range manually and print (which the majority of the end users do not know how to do. They inevitably print the whole sheet and it becomes unreadable).

What I would like to do is expand on my current macro to control the number of copies printed with a UserForm.

My current print macro:

Sub PRINT_OPEN_ACTIONS()
    Dim wks As Worksheet
    Dim LtHdr
    Dim CntHdr
    LtHdr = Range("LEAD").Value
    CntHdr = Range("PROJECT").Value

    Sheet2.Unprotect
    Application.ScreenUpdating = False

    For Each wks In Worksheets
        With wks.PageSetup
            .LeftHeader = "Project Lead: " & LtHdr
            .CenterHeader = "&"" Times New Roman,Italic""" & CntHdr & ":Action Plan"
            .RightHeader = "MMP"
            End With
    Next wks
    
    Selection.AutoFilter Field:=8, Criteria1:="="
    Range(ActiveSheet.Range("A2"), ActiveSheet.Range("b2").End(xlDown).Offset(0, 6)).PrintOut _
    Copies:=1, Preview:=True, Collate:=True
            
Sheet2.protect AllowSorting:=True, AllowFiltering:=True
Application.ScreenUpdating = True
End Sub

Any help would be very much appreciated. An example of the file is attached.
Thanks!

Something like

Sub PRINT_OPEN_ACTIONS()
    Dim wks As Worksheet
    Dim LtHdr
    Dim CntHdr
    Dim Pgs
    LtHdr = Range("LEAD").Value
    CntHdr = Range("PROJECT").Value

    Sheet2.Unprotect
    Application.ScreenUpdating = False

    For Each wks In Worksheets
        With wks.PageSetup
            .LeftHeader = "Project Lead: " & LtHdr
            .CenterHeader = "&"" Times New Roman,Italic""" & CntHdr & ":Action Plan"
            .RightHeader = "MMP"
            End With
    Next wks
    Pgs = InputBox("How many copies?")
    If Pgs < 1 Or Pgs = "" Then Pgs = 1
    Selection.AutoFilter Field:=8, Criteria1:="="
    Range(ActiveSheet.Range("A2"), ActiveSheet.Range("b2").End(xlDown).Offset(0, 6)).PrintOut _
    Copies:=Pgs, Preview:=True, Collate:=True
            
Sheet2.protect AllowSorting:=True, AllowFiltering:=True
Application.ScreenUpdating = True
End Sub

No problem

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save