Joining two lots of code together: Worksheet Change function

[dknowles2004]

How would I join the following code together to run in a Worksheet Change function please? I need to use multiple lots of code like this.

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then 
Range("BD10").Value = Now 
End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("F17:AU20")) Is Nothing Then 
Range("BD16").Value = Now 
End If 
End Sub

 

[Von Pookie]

See:
http://www.mrexcel.com/board2/viewtopic.php?t=178634