Fragen zu meiner ToDoListe

Guten Abend
ich habe mir folgenden code gebastelt und habe speziell zum Fett markierten Teil eine frage.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TRow As Integer
TRow = Target.Row
If Target.Column = 12 Then
If Target = "Erledigt" Then
Sheets("Aufgaben").Rows(TRow).Copy
Sheets("Erledigt").Cells(Sheets("Erledigt").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0). _
_
Row, 1).PasteSpecial
Sheets("Aufgaben").Rows(TRow).Delete Shift:=xlUp
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H4:H100")) Is Nothing Then Call OpenCalender
If Not Intersect(Target, Range("I4:I100")) Is Nothing Then Call OpenCalender
If Not Intersect(Target, Range("J4:J100")) Is Nothing Then Call OpenCalender
If Not Intersect(Target, Tabelle2.Range("M4:M100")) Is Nothing Then
sendEmail
End If
End Sub

Public Function sendEmail()
On Error GoTo ende
esubject = "Bitte folgende Aufgabe(n) erledigen"
'esubject = Tabelle2.Range("M4")
sendto = Tabelle2.Range("N4")
'ccto = Tabelle2.Range("L1")
ebody = Tabelle2.Range("G4") & vbCrLf & Starttermin & vbCrLf & Tabelle2.Range("H4") & vbCrLf & " _
_
Best regards" & vbCrLf & "Björn"
newfilename = "U:\Test.pdf"
Set app = CreateObject("outlook.Application")
Set itm = app.createitem(0)
With itm
.Subject = esubject
.to = sendto
.cc = ccto
.body = ebody
.attachments.Add (newfilename)
.display
.send
End With
Set app = Nothing
Set itm = Nothing
ende:
End Function