Filter macros further filtered by drop down selection?

[coops_46]

I have some macro buttons which filter data on time frames... They are housed in Sheet1 and they filter Sheet2.
An example of one is:

Sub ActivateAndSortLastWeek()Sheet2.Range("B:D,L:O,T:U,X:X").EntireColumn.Hidden = True
Dim lr As Long
    lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    Sheet2.Activate
    With Sheet2.Range("A1:X" & lr)
        .AutoFilter Field:=1, Criteria1:=xlFilterLastWeek, Operator:=xlFilterDynamic
    End With
End Sub

I'd like a combo box in Sheet 1, which contains a drop down list of supplier names. Supplier names are housed as a list in Sheet6 and are selected in Column D of Sheet2.
Is it possible that a supplier can be selected from the combo box, and then one of the time frame buttons is clicked, which applies the time filter but now also filters column D of Sheet2 to the specific supplier?

For this example lets say the supplier list will be:
All
Supplier 1
Supplier 2
Supplier 3
Supplier 4

I may have made this way more complex than I need to, but I'm not sure how to adapt the above code to cater for this additional filter.

Thanks in advance.

 

[coops_46]

anyone able to advise on this? thanks

 

[coops_46]

Can the below be adapted so that "All" is another option, and if it is selected from the dropdown it doesn't apply any filters to column D?

Sub Supplier_Selection()

Sheets("Raw Data").Range("$A$1:$X$2000").AutoFilter


With Sheets("Home").DropDowns("Drop Down 1")
    Sheets("Raw Data").Range("$A$1:$X$2000").AutoFilter Field:=4, _
        Criteria1:=WorksheetFunction.Index(Range(.ListFillRange), .Value)
End With


End Sub

 

[coops_46]

Anyone? I need something like: where drop down value = "All" Autofilter Field:=4 = false
But not sure how to write and/or modify into the above.