Untitled

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Check if the change happened in the first drop-down
    If Not Intersect(Target, Me.Range("E7")) Is Nothing Then
        ' Clear the contents of the second and third drop-downs
        Me.Range("E14").ClearContents
        Me.Range("E15").ClearContents
    End If
    
    ' Check if the change happened in the second drop-down
    If Not Intersect(Target, Me.Range("E14")) Is Nothing Then
        ' Clear the contents of the third drop-down
        Me.Range("E15").ClearContents
    End If
End Sub