Autofilter Macro Failing because object variable not set

Hi,

Please help me with Error 424 in following: -

Dim RangeEAs Range

    LastRow = 35
    
    Range("AA1").Select
    Selection.AutoFilter
    
    Set RangeE= Nothing
    Set RangeE= Worksheets(1).Range("AB1", "AB" & LastRow)
    
    Cells.Select
    
    Selection.AutoFilter
    Selection.AutoFilter.Sort.SortFields.Clear
    Selection.AutoFilter.Sort.SortFields.Add Key:=RangeE, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    
    With ActiveWorkbook.Worksheets(1).AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Selection.AutoFilter