resolvi aqui, ja posto o codigo, para ajudar outra pessoa

Consegui, porem eu queria usar a minha assinatura que ja esta gravada no Outlock,

ao invés disso:

"André Luiz" & vbCrLf & _
"Fone: (21)-2347" & vbCrLf & _
"WhatsApp: (21)-3381" & vbCrLf & _
"atendimento@brasil.com.br"

pois a mesma contem meu logo. qual linha de comando devo acrescentar ?

Option Explicit
Sub teste()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String
    Dim sQualEmail As String
    sQualEmail = Range("C1")
    Dim qAssunto As String
    qAssunto = Range("G10")
        
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

            
        ' texto = "Prezado(a) "
        
        With OutMail
            .To = sQualEmail
            .CC = ""
            .BCC = ""
            .Subject = qAssunto
            '.Body = texto
            
       '.Body = "Ola" & vbCrLf & _

       .Body = Range("G10").Value & vbCrLf & _
        "" & vbCrLf & _
        Range("G11").Value & vbCrLf & _
        Range("G12").Value & vbCrLf & _
        Range("G13").Value & vbCrLf & _
        Range("G14").Value & vbCrLf & _
        Range("G15").Value & vbCrLf & _
        "" & vbCrLf & _
        "Obrigado!" & vbCrLf & _
        "" & vbCrLf & _
        "André Luiz" & vbCrLf & _
        "Fone: (21)-2347" & vbCrLf & _
        "WhatsApp: (21)-3381" & vbCrLf & _
        "atendimento@brasil.com.br"
            
            .Attachments.Add "C:UsersAndreDesktopPedidos" & ActiveSheet.Range("G21").Value
            .Display   'Utilize Send para enviar o email sem abrir o Outlook
        

        
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
    
    
    End Sub