Find Function when there is nothing to find

I have put together some code to organise data from a time-sheet report. I want to delete the rows labelled as Sick Leave, Annual Leave and Other Leave as these times are divided proportionally between the projects people are working on. to do this I have used the Find function to locate the row and delete it. 9/10 times the headings will appear on the report as people will have clocked something against them but there is a chance that there will be nothing clocked against these headings so they won't appear on the report so the find function produces and error. I have tried using On Error to skip the line of code but i cant get it to work. I have pasted what I have below any help on the matter would be greatly appreciated.

  On Error GoTo Err1
    Cells.Find(What:="Sick Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err1:
    On Error GoTo Err2
    Cells.Find(What:="Annual Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err2:
    On Error GoTo Err3
    Cells.Find(What:="Other Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err3:
    Sheets("Sick-Holiday").Select
    On Error GoTo Err4
    Cells.Find(What:="Sick Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err4:
    On Error GoTo Err5
    Cells.Find(What:="Annual Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err5:
    On Error GoTo Err6
    Cells.Find(What:="Other Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err6:
    Sheets("Time").Select
    On Error GoTo Err7
    Cells.Find(What:="Sick Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err7:
    On Error GoTo Err8
    Cells.Find(What:="Annual Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err8:
    On Error GoTo Err9
    Cells.Find(What:="Other Leave (BZ8800)", After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
    ActiveCell.EntireRow.Delete
Err9:
    Sheets("Project Charge").Select
    Range("A1").Select