I have a macro that does an initial autofilter of my data based on a specified date range in column 1. I need to do a second sort and deletion of rows that have dates greater than my end date in column 2 and where column 3 equals --, New, Imported, Assigned or Error. Seems simple enough, but I'm stuck and haven't been able to get this to work.

here's what I have:


'first sort

Date1 = Range("C2").Value
Date2 = Range("C5").Value

'Filter data based on dates chosen
Windows("DownLoadReports.xls").Activate
Sheets("DownLoadReports").Select
    LR = Range("A" & Rows.Count).End(xlUp).Row

    Range("A2").AutoFilter Field:=7, Criteria1:=">=" & Date1, Operator:=xlAnd, _
        Criteria2:="<=" & Date2
'Copy data ranges and remove autofilter
    Range("A2:CE" & LR).SpecialCells(xlCellTypeVisible).Copy Sheets("QuarterlyLocks").Range("A2")
      
Sheets("QuarterlyLocks").Select
   Columns("A:CE").Columns.AutoFit
    Range("g2") = Format(Date1, "M/D/YYYY")
    Range("g2") = Format(Date2, "M/D/YYYY")
    Range("A2").Select

'second sort not working

With ActiveSheet
  .Cells.AutoFilter Field:=9, Criteria1:=">" & Date2
  .Cells.AutoFilter Field:=82, Criteria1:="=--", Operator:=xlOr, Criteria2:="=New", _
   Operator:=xlOr, Criteria3:="Imported", Operator:=xlOr, Criteria4:="=U/W Assigned"
  
  

 Set DeleteRange = .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
  
  DeleteRange.EntireRow.Delete
End With