Soru Worksheet_SelectionChange kodlarını birleştirme

[tarık34]

Arkadaşlar aşağıdaki iki kodu nasıl birleştirebilirim? Kodların yaptıkları işler tamamen farklı, yani birleşince aralarında çatışma olmaz.
Birleştirilebilirse işlem önceliği birinci kodda olmalı.

1. KOD:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat >= 4 And süt = 5 Or süt = 6 Then
If Cells(sat, 4) <> "" Then
      Cells(sat, 4).Select
      MsgBox "HATA", vbCritical, Title:="UYARI"
    End If
    End If
End Sub

2. KOD:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E8:E67]) Is Nothing Then Exit Sub
If Target <> "" And WorksheetFunction.CountIf(Range("E8:E67"), Target) > 1 Then
    MsgBox "Mükerrer kayıt!", vbCritical, "UYARI": Target = "": Target.Activate
End If
End Sub