Сочетание 2-х частной смены рабочего листа, макро VBA

Question

Я раньше искал на этом сайте, но не нашел такого же случая с моим кодом.Надеюсь, что кто-то здесь может помочь мне в этом.Как объединить два частных саб ниже:

1)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("k2") Then
        Range("D4").Value = ""
    End If
End Sub

2)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then filtra
End Sub

Answer 1

Один саб два теста:

Private Sub Worksheet_Change(ByVal Target As Range)
    'exit if >1 cell
    If Target.Cells.CountLarge > 1 then Exit Sub

    If Target.Value = Me.Range("k2").Value Then
        Me.Range("D4").Value = ""
    End If

    If Target.Address = "$D$4" Then filtra

End Sub