Delete Filtered rows without headers

[HomePro]

I am using VBA code to run a filter, copy the results to a new sheet and then delete the results from the original sheet but not the header.
Then I am running a different filter and repeating that. But when I try to delete those results I get the error
Application-defined or object-defined error. I do not know what this means or how to get around it. Can anyone help?

Sub WORKING()
'PARSE AGREEMENT TYPE
  'GET LAST ROW
    lR = Cells(Rows.Count, 1).End(xlUp).Row
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("A1:L" & lR).AutoFilter field:=4, Criteria1:= _
        "= AGREEMENT TYPE", Operator:= _
        xlOr, Criteria2:="="
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Choose Agreement"
    ActiveSheet.Paste
    Sheets("DATA").Select
'DELETE FILTERD ROWS
    ActiveSheet.AutoFilter.Range.Offset(1).Delete xlShiftUp
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
'PARSE CALL BACKS BY CSR
  'Kayla
   'GET LAST ROW
    lR = Cells(Rows.Count, 1).End(xlUp).Row
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("A1:L" & lR).AutoFilter field:=2, Criteria1:= _
    "Kayla", Operator:=xlOr, Criteria2:="="
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Kayla"
    ActiveSheet.Paste
    Sheets("DATA").Select
'DELETE FILTERD ROWS
   MsgBox ActiveSheet.Name
   Active.Sheet.AutoFilter.Range.Offset(1).Delete xlShiftUp
   Selection.Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
   If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
End Sub

 

[Marc L]

​

As Active.Sheet does not exist …​

 

[HomePro]

I added " MsgBox ActiveSheet.Name" to confirm it did nd it does return the correct sheet.

But as per your suggestion I changed it to Sheets("DATA").AutoFilter.Range.Offset(1).Delete xlShiftUp and the error persist.
Any suggestion on how to get around this?

 

[Marc L]

Just remove first the dot between Active & Sheet …​

 

[HomePro]

tks