Macro for deleting unwanted data from a database extract

Public Sub Test()

Dim oSheet As Worksheet

Dim oStart As Range
Dim oEnd As Range

Set oSheet = ActiveSheet

'Repeat the following block for each pair of phrases
Set oStart = oSheet.UsedRange.Find(what:="Oilsafe Classification:", MatchCase:=False, lookat:=xlPart)
Set oEnd = oSheet.UsedRange.Find(what:="Toxic Hazard Rating", MatchCase:=False, lookat:=xlPart)

If Not oStart Is Nothing And Not oEnd Is Nothing Then
    'Change fill color in lieu of delete
    oSheet.Range(oStart.Offset(1, 0).Row & ":" & oEnd.Offset(-1, 0).Row).Interior.ColorIndex = 3
    'oSheet.Range(oStart.Offset(1, 0).Row & ":" & oEnd.Offset(-1, 0).Row).Delete 'Actually delete rows
End If
'End block repeat

End Sub