Filtering with Custom made Combo Box

Hi all,
I would like your help in a report that I am working on.
It's quite complicated to me and I hope you can take some time to help me.
I'm desperate!

I have 2 sheets, actually a lot but I didn't include on the dummy Excel sheet as it is not relevant.

On my Sheet1 (Sales Dashboard) contains combo boxes and a Table.
On my Sheet2 (DataSource) is the value lookup.

What I'd like to do is to create some sort of filter.
When clicking "Run Query" button I would like to populate my table
(starting from C42 of Sales Dashboard Sheet) based on the choices of my Combo box.

I'm so desperate and I really really need your help.
Thank you so very much in advance.

PS
I have attached my dummy worksheet.

See attached your file with some slight modifications: Linked cells for combox changed and columns reference for filter added.

Option Explicit
Sub Button6_Click()
Dim SalesWk  As Worksheet
Dim DataWk  As Worksheet

Dim SelectionA  As Range
Dim SubRegion  As Range
Dim Segment  As Range
Dim Country  As Range
Dim SelectionC  As Range

Dim SelectionA_Col   As Integer
Dim SubRegion_Col   As Integer
Dim Segment_Col   As Integer
Dim Country_Col   As Integer
Dim SelectionC_Col   As Integer

Dim WkRg  As Range
Dim DispRg  As Range
Dim LR  As Integer
Dim LC  As Integer

    Set SalesWk = Sheets("Sales Dashboard")
    Set DataWk = Sheets("DataSource")
    With SalesWk
        Set SelectionA = .Range("AAA6")
        Set SubRegion = .Range("AAA7")
        Set Segment = .Range("AAA8")
        Set Country = .Range("AAA9")
        Set SelectionC = .Range("AAA10")
        Set DispRg = .Range("C41")
        
        LR = .Cells(Rows.Count, DispRg.Column).End(3).Row
        LC = DispRg.End(xlToRight).Column
        Set WkRg = Range(DispRg, .Cells(LR, LC))
        WkRg.Offset(1, 0).ClearContents
        
    End With
    SelectionA_Col = SelectionA.Offset(0, 1)
    SubRegion_Col = SubRegion.Offset(0, 1)
    Segment_Col = Segment.Offset(0, 1)
    Country_Col = Country.Offset(0, 1)
    SelectionC_Col = SelectionC.Offset(0, 1)
    With DataWk
        LR = .Cells(Rows.Count, 1).End(3).Row
        LC = .Cells(5, Columns.Count).End(xlToLeft).Column
        Set WkRg = Range(.Range("A5"), .Cells(LR, LC))
        If (.AutoFilterMode) Then .AutoFilterMode = False '  REMOVE  AUTOFILTER  IF  EXIST
        With WkRg
            .AutoFilter Field:=SelectionA_Col, Criteria1:=SelectionA
            .AutoFilter Field:=SubRegion_Col, Criteria1:=SubRegion
            .AutoFilter Field:=Country_Col, Criteria1:=Country
            .AutoFilter Field:=SelectionC_Col, Criteria1:=SelectionC
            .Offset(1, 0).Copy Destination:=DispRg.Offset(1, 0)
        End With
    End With
End Sub