combine two private sub into one

[MosesGothi]

Hi all.

I have two private sub:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target Range("F7:F14")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Target
.Offset(, -2).Value = Offset, -2).Value - .Value
End With
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O:O")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Target.Offset(0, 1) = Now
End Sub

I need to add bothof them to excel.

Please help.

Thanks

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F7:F14")) Is Nothing Then
    Application.EnableEvents = False
    With Target
        .Offset(, -2).Value = .Offset(, -2).Value - .Value
    End With
    Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("O:O")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
    Target.Offset(0, 1) = Now
End If
End Sub

 

[MosesGothi]

Works great!!!!!!

Thanks a lot sir