Galera boa noite!

Tenho uma planilha que uso o seguinte VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim texto As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

linha = ActiveCell.Row - 1
If Target.Address = "$L$" & linha Then

If Plan1.Cells(linha, 13) = "Ass" Then
texto = "Prezados(as) " & Plan1.Cells(linha, 1) & "," & vbCrLf & vbCrLf & _
"O Colaborador " & Plan1.Cells(linha, 5) & " inicia as férias em " & _
Plan1.Cells(linha, 8) & " e precisa assinar a notificação." & vbCrLf & vbCrLf & _
"Veja informações abaixo:" & vbCrLf & vbCrLf & _
"Status da Notificação: " & Plan1.Cells(linha, 13) & vbCrLf & _
"Observações: " & Plan1.Cells(linha, 14) & vbCrLf & vbCrLf & _
"Atenciosamente," & vbCrLf & _
"Sistema de Férias"

End If

With OutMail
.To = Plan1.Cells(linha, 1)
.CC = ""
.BCC = ""
.Subject = "Notificação de Férias"
.Body = texto
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub

E gostaria de usar mais essa informação na mesma planilha:

linha = ActiveCell.Row - 1
If Target.Address = "$P$" & linha Then

If Plan1.Cells(linha, 16) = "-5" Then
texto = "Prezados(as) " & Plan1.Cells(linha, 1) & "," & vbCrLf & vbCrLf & _
"Restam 5 dias para o colaborador" & Plan1.Cells(linha, 5) & " sair de férias. " & vbCrLf & vbCrLf & _
"Lembre-se de reconfigurar a equipe!" & vbCrLf & vbCrLf & _
"Veja informações abaixo:" & vbCrLf & vbCrLf & _
"Status da Notificação: " & Plan1.Cells(linha, 13) & vbCrLf & _
"Observações: " & Plan1.Cells(linha, 14) & vbCrLf & vbCrLf & _
"Atenciosamente," & vbCrLf & _
"Sistema de Férias"

With OutMail
.To = Plan1.Cells(linha, 1)
.CC = ""
.BCC = ""
.Subject = "Lembrete de Férias"
.Body = texto
.Send
End With
On Error GoTo 0

Mais não estou sabendo como montar. Ele deve enviar para o mesmo email uma nova informação. A primeira funciona perfeitamente, mais quando tento incluir a segundo já me perco, não funciona, não estou sabendo montar.

Porfavor me ajudem.

Obrigado.