Clear Contents, Independent Instances; Separate Worksheet VBA

It's me again...

So to explain I have a series of 15 sheets.
Each sheet provides it's own references, dynamic ranges and so on.
I have provided an "Options" Tab. But, this by no means where all selections and fields are filled in.
I have a number of options on the Options tab, that I need to change corresponding cell in Sheet1 to blank,
if the referring cell in the Options tab changes.

WORKSHEET15 (Options Tab)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "I16" Then
       Worksheets("Character Sheet").Range("C5").ClearContents
    End If
        If Target.Address(0, 0) = "I17" Then
       Worksheets("Character Sheet").Range("C7").ClearContents
    End If
End Sub

However, I also need dependent dropdown cells in Sheet1 to clear when their source is changed in Sheet1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "E1" Then Range("E2").ClearContents
    If Target.Address(0, 0) = "K7" Then Range("L7").ClearContents
    If Target.Address(0, 0) = "K8" Then Range("L8").ClearContents
    End Sub

While I am learning what all of this means; in no way do I claim to understand the breakdown or code as a whole. I have only recently started tinkering with VBA, whereas I am generally good enough with functions and data validation to cobble things together.

As always, any help is greatly appreciated.

What's your question?

How to I make both of these work in vba
Without assigning a macro.

I don't understand; those are macros, and they run automatically in response to changes on the worksheet.

' sheet 15:
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Oops
  Application.EnableEvents = False

  Select Case Target.Address
    Case "$I$16"
      Worksheets("Character Sheet").Range("C5").ClearContents
    Case "$I$17"
      Worksheets("Character Sheet").Range("C7").ClearContents
  End Select

Oops:
  Application.EnableEvents = True
End Sub

' sheet 1:
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Oops
  Application.EnableEvents = False

  Select Case Target.Address
    Case "$E$1"
      Range("E2").ClearContents
    Case "$K$7"
      Range("L7").ClearContents
    Case "$K$8"
      Range("L8").ClearContents
  End Select

Oops:
  Application.EnableEvents = True
End Sub

Thanks again.

You're welcome.

I'm happy to answer any of your questions after you've invested the time to look at Help for those statements.

You're welcome.