delete all visible rows after a filter

im trying to use this code but it doesnt work and im not sure why

ActiveSheet.ListObjects("Table_owssvr_2").Range.AutoFilter Field:=15, _
        Criteria1:="<01/01/2013", Operator:=xlAnd
    
    Lastrow = Range("A1048576").End(xlUp).Row
    Range("A1:A" & Lastrow).SpecialCells(xlCellTypeVisible).EntireRow.Delete

the delete part is whats at fault, im sure you can see what im trying to do though...

any ideas?