'run time error when deleting values in drop down list cells

I have several columns in this excel sheet with 2 being drop down lists.

Root cause column is a drop down Sub root cause is a dependent drop down list (to the value selected in root cause)

While testing the excel, I found if I select the values in root cause/sub root cause and hit delete I get a run time error. I want to be able to clear the values like this as a user may want to mass select rows and clear.

 Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
  If Target.Column = 9 Then
        If Target.Validation.Type = 3 Then
         Target.Offset(0, 1).Value = ""
        End If
    End If
   
  If Target.Column = 9 Then
        If Target.Value = "" Then
          Target.Offset(0, 1).Value = ""
        End If
  End If
  
   
  Application.EnableEvents = True
   End Sub

enter image description here



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source