Hi,

I wonder what seems to be wrong with this code, if i apply each code separately, it works but if i combine them, it doesn't...please help..thanks so much...

rivate Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer, x As Integer, y As Integer




i = Target.Row
j = Target.Column
x = Target.Row
y = Target.Column


If i > 15 Then
    If j = 9 Then
        If Cells(i, 9).Value = "Yes" Then
               Range("M" & i).Value = Date
    
    Else
        Range("M" & i).Value = ""
        End If
    End If
Else

If x > 15 Then
    If y = 7 Then
        If Cells(y, 7).Value = "Others" Then
               Range("K" & x).Value = "Marianne Elder"
    
    Else
        Range("K" & x).Value = " "
        
        End If
    End If
Else
End If
End If


End Sub