2 Worksheet_Change-Bedingungen vereinen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
On Error Resume Next
Me.Shapes("curPic").Delete
Sheets("Tabelle3").Shapes(Target.Text).Copy
Me.Paste
With Me.Shapes(Me.Shapes.Count)
.Name = "curPic"
.Left = 100
.Top = 250
End With
Target.Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Überwachung eines Bereiches "B17:B37"
Dim z As Range, rng As Range
If Target(1).Value <> "" Then Exit Sub ' Abbruch, wenn Wert eingetragen wurde
Set rng = Intersect(Target, Range("B17:B37"))
If Not rng Is Nothing Then
    For Each z In rng
        Range(z.Offset(0, 1), z.Offset(0, 2)).ClearContents
    Next z
End If
End Sub
Ist das so ohne weiteres möglich?
Gruß Korl