Prep List

I believe you want a listbox not a combobox.  See the attached file for an example.  You'll need to insert a code module and link the shape to the macro called AllTogether.  Then you can just pick the items you want in the listbox and click the shape and the 'Report' sheet will populate with your data...

To Insert VBA Code:

Alt + F11

Insert > Module

Paste Below Code

To link the code to the shape:

Right Click Shape that says 'Run Report' > Assign Macro > Select AllTogether

Sub ClearData()

    Dim Lrow As Integer
    Dim sht As Worksheet
    
    Set sht = shtDest
    sht.PageSetup.PrintArea = "" 'Clear Previous PrintArea
    Lrow = sht.Cells(Rows.Count, "A").End(xlUp).Row 'Define last row based on data in column A
    If Lrow <> 1 Then 'Check to make sure there is actually data that needs to be removed
        sht.Range("A2:C" & Lrow).ClearContents 'Clear Old Data
    End If
    
End Sub

Sub GetData()

    Dim Lrow As Integer
    Dim sht As Worksheet
    Dim lstLp As Integer
    Dim mylst As String
    Dim myArr() As String
    
    Set sht = shtPrep

    With sht
        Lrow = .Cells(Rows.Count, "A").End(xlUp).Row 'Define last row based on data in column A
        With .Shapes("List Box 1").OLEFormat.Object
            For lstLp = 1 To .ListCount
                If .Selected(lstLp) Then 'If Prep Item is selected add to our filter
                   mylst = mylst & .List(lstLp) & "," 'Put all selected values in comma delimited string
                End If
            Next lstLp 'Go to next ListBox Item to see if it was selected
        End With
        myArr = Split(Left(mylst, Len(mylst) - 1), ",") 'Change comma delimited string into an array
       .Range("$A$1:$C$" & Lrow).AutoFilter Field:=1, Criteria1:=myArr, Operator:=xlFilterValues 'Filter all prep values
       .Range("$A$2:$C$" & Lrow).SpecialCells(xlCellTypeVisible).Copy shtDest.Range("A2")
       .AutoFilterMode = False 'Unfilter Data to leave the complete list up...
       shtDest.PageSetup.PrintArea = shtDest.Range("A1").CurrentRegion.Address 'Set PrintArea
       shtDest.Activate 'Activate Sheet so it can be reviewed and printed...
       
    End With
    
End Sub

Sub AllTogether()
    Application.ScreenUpdating = False
    Call ClearData
    Call GetData
    Application.ScreenUpdating = True
End Sub