Delete Filtered Rows Excluding The Header

[xander1981]

Many thanks. I have now resolved this issue :

ActiveWorkbook.Sheets("PRG CFS Receipts").Select
        ActiveSheet.Range("a1").AutoFilter 10, Criteria1:="<" & GetDateRangeFrom, Operator:=xlOr, _
        Criteria2:=">" & GetDateRangeTo
        On Error Resume Next
        ActiveSheet.Range("A2:A1000").SpecialCells(12).EntireRow.Delete
         Range("A1").Select
        Selection.AutoFilter