[VBA] Filter range based on separate range of cell values

[StuckInWork]

Hi all, apologies I have not been able to find the solution with my searches despite trying multiple solutions.
My query is as below,

I have a sheet of data (data range A13:K2000), the A range is date, the range headers are in row 12.
I have 5 separate boxes (range B4:B9) with the dates ranged from Monday to Friday, entering the Monday date inputs the remaining dates.
Essentially I need the A range (dates) to apply filters based on the 6 cell values in range B4:B9 when the VBA is ran.

Thanks in advance.

 

[kevin9999]

Is this what you want?

Option Explicit
Sub StuckInWork()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    With ws.Range("A12").CurrentRegion
        .AutoFilter 1, ">=" & CLng(ws.Range("B4")), 1, "<=" & CLng(ws.Range("B4") + 5)
    End With

End Sub

Before:

Book1
	A	B	C	D
3		DATE	EXCLUSIONS/TOTAL
4	MONDAY	28/11/2022	1/1
5	TUESDAY	29/11/2022	0/1
6	WEDNESDAY	30/11/2022	0/1
7	THURSDAY	01/12/2022	0/1
8	FRIDAY	02/12/2022	1/1
9	SATURDAY	03/12/2022	0/1
10
11
12	DATE	ACC	CUSTOMER	RO
13	28/11/2022	12345	test1	d
14	29/11/2022	12346	test2
15	30/11/2022	12347	test3
16	01/12/2022	12348	test4
17	02/12/2022	12349	test5
18	03/12/2022	12350	test6
19	04/12/2022	12351	test7
20	05/12/2022	12352	test8
21	06/12/2022	12353	test9
22	07/12/2022	12354	test10
23	08/12/2022	12355	test11
24
Sheet1

Cell Formulas
Range	Formula
B5:B9	B5	=B4+1

After:

Book1
	A	B	C	D
3		DATE	EXCLUSIONS/TOTAL
4	MONDAY	28/11/2022	1/1
5	TUESDAY	29/11/2022	0/1
6	WEDNESDAY	30/11/2022	0/1
7	THURSDAY	01/12/2022	0/1
8	FRIDAY	02/12/2022	1/1
9	SATURDAY	03/12/2022	0/1
10
11
12	DATE	ACC	CUSTOMER	RO
13	28/11/2022	12345	test1	d
14	29/11/2022	12346	test2
15	30/11/2022	12347	test3
16	01/12/2022	12348	test4
17	02/12/2022	12349	test5
18	03/12/2022	12350	test6
24
Sheet1

Cell Formulas
Range	Formula
B5:B9	B5	=B4+1

 

[StuckInWork]

Thanks for your help, the code you've provided doesn't work on a protected sheet but I can work around that.

 

[kevin9999]

Glad it helped