boa noite

gostaria que cada celula alterada ele inseri-se um valor em na celula "B4" da aba email para ser enviada apenas um resumo da alteração.

exp:

aletrei a celula "K4" da aba 1 e que ele inserise o valor na aba Email celula "B4"
aletrei a celula "K5" da aba 1 e que ele inserise o valor na aba Email celula "B4"

estou usando o evento abaixo, mais gostaria que a cada célula alterada ele executa um macro diferente.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$4" Then
           Call Teste
               Exit Sub
            End If
End Sub


Sub Teste()
    
     Sheets("Email2").Select
    ActiveSheet.Range("A1:H6").Select
      ActiveWorkbook.EnvelopeVisible = True
      With ActiveSheet.MailEnvelope
      .Introduction = "Segue Fechamento Operacioanl"
      .Item.To = ""
      .Item.CC = ""
      .Item.Subject = "Fechamento Operacional"
      .Item.Send
   End With
   
   Sheets("Noite").Select
   
End Sub