Como unir dos macros, una introduce fecha al modificar y otra ordena la columna de las fechas

Pues como dice mi extenso título, tengo dos macros que funcionan bien por separado, pero cuando intento unirlas no funcionan. La primera me coloca en la columna A la fecha y hora a la que se modifica cualquier celda de la columna B, C, D ó E. Es esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:E")) Is Nothing Then
Range("A" & Target.Row) = Now()
End If
End Sub

La segunda me ordena la columna A en orden descendente de manera que siempre tengo abajo las líneas que más se modifican. Es esta:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
With Range("A:E")
.Sort key1:=.Cells(1, 1), Header:=xlYes
End With
End If
End Sub

¿Cómo hago para que funcionen a la vez?