¿Como hago para enviar correos con mi firma de outlook mediante una macro con los datos en excel?

Sub Enviar_Correos()
    '***Macro Para enviar correos
    Set dam = CreateObject("outlook.application").CreateItem(0)
    col = Range("f7").Column ' Define el número de la columna, a partir de la cual la macro buscará archivos para adjuntar al email
    For i = 8 To Range("B" & Rows.Count).End(xlUp).Row ' Bucle, que recorrera desde la fila 8 hasta la última fila hacia bajo que encuentre diligeciada
        Set dam = CreateObject("Outlook.Application").CreateItem(0) ' Configuración de obejto outlook para usar esta aplicación como servicio de envío
        '
        dam.To = Range("B" & i).Value           'Celda donde se encuenta el Destinatarios (la i es el valor de la variable en el bucle)
        dam.CC = Range("C" & i).Value           'Con copia
        'dam.BCC = Range("D" & i).Value          'Con copia oculta
        dam.Subject = Range("D" & i).Value      '"Asunto"
        dam.HTMLBody = cuerpo & dam.HTMLBody    'Con esta parte se agre la firma
        dam.Body = Range("E" & i).Value         '"Cuerpo del mensaje"
        'Agregación de archivos adjuntos
        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column - 3
            archivo = Cells(i, j).Value
            If archivo <> "" Then dam.Attachments.Add archivo ' Con el condicional IF, el mismo SI que utilziamos en Excel, sabremos si hay archivos o no para adjuntar.
        Next
        Dam. Send 'El correo se envía en automático
 'dam. Display 'El correo se muestra
    Next
    MsgBox "Correos enviados", vbInformation, "www.excelparatodos.com" ' Mensaje de confirmación
End Sub

no puedo agregar mi firma oajala puedan ayudarme

H o l a:

Te anexo un ejemplo para agregar la firma del correo:

Sub enviar_correo_con_firma()
'Por.Dante Amor
    Set dam = CreateObject("outlook.application").createitem(0)
    dam.Display
    dam.To = Sheets("Hoja1").Range("D2")
    dam.CC = Sheets("Hoja1").Range("D3")
    dam.Subject = Sheets("Hoja1").Range("D4")
    cuerpo = Sheets("Hoja1").Range("D5")
    dam.Display
    dam.HtmlBody = cuerpo & dam.HtmlBody    'Con esta parte se agre la firma
    dam.Display
    dam.Send
End Sub

Si tienes problemas para adaptarlo a tu macro, pon tu macro para revisarla.