Soru sütunda form açma hatası

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
süt = Target.Column
Range("F9:H13").ClearContents
If sat >= 9 And sat <= 13 And süt = 6 Then
Call UserForm1.Show
End If
satt = Target.Row
sütt = Target.Column
Range("J9:J13").ClearContents
If satt >= 9 And satt <= 13 And sütt = 10 Then
Call UserForm2.Show
End If
End Sub

6. sütunda userform açtığım zaman 10. sütundaki veriler, 10. sütunda userform açtığım zaman 6. sütundaki veriler siliniyor. Rica etsem hatamı düzeltebilir misiniz?

 

[Korhan Ayhan]

Sayfada çift tıklama yaptığınızda koşulsuz olarak ilk önce F9:H13 aralığı siliniyor. Sonra J9:J13 aralığı siliniyor.

IF ile koşul koymanız gerekiyor.