Advanced filter with blank cells / Dynamic named range with blank cells

Ok, I've figured out that the code will run by itself if the worksheet "CBList" is the active sheet, but if another sheet is active, and the macro is run from that sheet, it will not work.

Here is the code as I have it now.

Option Explicit
Sub CreateDynamicRange()
Dim LR As Long

LR = Cells.Find("*", Cells(Rows.Count, Columns.Count), _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    Sheets("Data").Range("B6:B" & LR).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("CBList").Range("A1"), Unique:=True
    Sheets("Data").Range("C6:C" & LR).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("CBList").Range("C1"), Unique:=True
    Sheets("Data").Range("F6:F" & LR).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("CBList").Range("E1"), Unique:=True
        
    Sheets("CBList").Range("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("CBList").Range("C:C").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("CBList").Range("E:E").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
                                  
End Sub

I ran the code for sorting as a separate macro, and it worked fine as long as the CBList sheet was active. Not sure what to do now.

- Jason