Copy cells from a TABLE to another sheet as a value dependant on multiple cell values

Hello Folks,

I have a dashboard that now needs to list sales opportunity names and details for the weekly reports.
This data comes from TABLE within the workbook and I am having trouble copying this data to the report sheet.

Attached is workbook with a descriptions of the work needing to be done.

The table name is Table_Company_Sales_History___Total

Caveats are that the list size will not be a constant, as all sales reps see a different number of contacts each week.
I had attempted to sort the table and copy the results but the time taken is restrictive for the number of sales reps to report on each week.
using this partial code

Sub Macro1()
'
' Macro1 Macro
'

'
Dim Choice_Name As String
Dim Choice_Week As String

Choice_Name = Sheets("Individual Sales Rep Stats").Range("B2")
Choice_Week = Sheets("Individual Sales Rep Stats").Range("E1")

    With Sheets("Data")
    
        Range("Table_Company_Sales_History___Total[[#Headers],[AMLEAD]]").AutoFilter
            .ListObjects("Table_Company_Sales_History___Total").Range.AutoFilter Field:=2, Criteria1:=Choice_Name
            .ListObjects("Table_Company_Sales_History___Total").Range.AutoFilter Field:=27, Criteria1:=Choice_Week
       
       Range("A13533:AC13900").Copy ' this needs works to allow collection of the correct data.
    
    End With
    
    Sheets("Individual Sales Rep Stats").Range("A87").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Range("A87").Activate
    
    
End Sub

Thanks in advance for any assistance