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!