Advanced filter that will use a variable lenght range

[Sibrulottes]

Hi, so I have to do an advanced filter on the Sheet "Data", and my criteria will be on Sheet "filtre", range A1, to A ... however long will there be data.

I could put to A500 to be safe, but advanced filters don't work on blanks, so filtering fails.

I'm trying to twiddle with this code, but I can't seem to make it happen:

 
Dim lLR As Long
Dim FRange As Range

With Sheets("Filtre")
    lLR = .Range("A" & .Rows.Count).End(xlUp).Row
    Set FRange = .Range("A2:A" & lLR)
    
    
    Sheets("Data").Select
    Application.CutCopyMode = False
    Range("A1:BM50000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("filtre").FRange, Unique:=False
        End With

I'm halfway noob, so please bare with me if I'm doing something stupid in the code.

Thank you!

[protonLeah]

CriteriaRange:= FRange

[Sibrulottes]

I also solved using a named range with an Offset and count formula in it. thank you though.