VBA filter transactions for last quarter data and 1 day before

[Knockoutpie]

The below snipped captures transaction dates for the last quarter, which is almost perfect, but i need to modify to capture 1 day beyond the last quarter...
Can anyone help me modify that?

Example, Last quarter data is Apr 01 to Jun 30, but I really need Mar 31 to Jun 30.

    ActiveSheet.Range("$A$1").AutoFilter Field:=2, Criteria1:=11, _
        Operator:=11, Criteria2:=0, SubField:=0

 

[kevin9999]

Following insights from @Peter_SSs and @Bosquedeguate , please try the following amended code & see if it achieves what you wanted.

Option Explicit
Sub Knockoutpie_V2()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")   '<~~ *** Change to actual sheet name ***
    Dim StartD As Long, EndD As Long
    
    EndD = DateSerial(Year(Date), (((Month(Date) - 1) \ 3) * 3) + 1, 0)
    StartD = WorksheetFunction.EoMonth(EndD, -3)
    
    With ws.Range("A1").CurrentRegion
        .AutoFilter 2, ">=" & CLng(StartD), 1, "<=" & CLng(EndD)
    End With
End Sub

 

[Peter_SSs]

Reminder:

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: vba filter dates for all last quarter, and the last day into the quarter before that
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.