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

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)