¿Cómo detener dos fórmulas a partir de dos macros que empiezan con Private Sub Worksheet_SelectionChange(ByVal Target As Range)?

Estamos generado un archivo para darle seguimiento a solicitudes de compras. Tres columnas cuentan los días trascurridos el primero es la columna "K" en la imagen se debe detener el conteo de días (=Data!$G$1-[Req_Date]) cuando en la columna "H" aparesca la leyenda "Done".

Esto mismo se repite en tres columnas mas "Q" con "P" y "S" con "T".

El problema es que solo puedo hacer que funcione una macro al mismo timepo, si agrego la segunda, no trabaja.

Sera que me puedan Guiar.

JP

'Macro 1

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 8 Then Exit Sub
If Target.Count > 1 Or Target.Value = "" Then Exit Sub
If Target.Value = "Approved" Then
Range("K" & Target.Row).Copy
Range("K" & Target.Row).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub

'Macro 2

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 16 Then Exit Sub
If Target.Count > 1 Or Target.Value = "" Then Exit Sub
If Target.Value = "Approved" Then
Range("Q" & Target.Row).Copy
Range("Q" & Target.Row).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub