Macro envíe mail con adjunto y pie de firma con logo masivamente

Dante Amor Creo esta macro, pero no logro poner el pie de firma con logo, funciona todo bien pero no puedo, no se como poner el pie de firma a los mail

Esta es la macro, me puede ayudar, copie unos código para los pie de firma, pero no funcionan. Lo que esta como comentario es lo que agregue, pero no funciona y me da error.

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dam
'Dim OutApp As Object
'Dim SigString As String
' Dim Signature As String
On Error Resume Next
If Not Intersect(Target, Range("C:C")) Is Nothing Then
For Each t In Target
If t.Value <> "" Then
Cells(t.Row, "I").Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="Hoja1!C" & t.Row, _
TextToDisplay:="Insertar archivo"
End If
Next
Cells(Target.Row, 3).Select
End If
'SigString = Environ("appdata") & "\Microsoft\Firmas\" & ActiveSheet.[J1] & ".htm"
'si no encuentra archivo de firma lo dejará vacío
'If Dir(SigString) <> "" Then
' Signature = GetBoiler(SigString)
'Else
' Signature = ""
'End If
End Sub