Excel - Excel salvar con consecutivo y envie correo

Private Sub Mail_Outlook()

    Dim Destino As String

    ' ---&--- Seleccionamos el rango de celdas a enviar Select

    Sheets("Mascara").Select

    ActiveSheet.Range("A1:O28").Select

    ' ---&--- Es true si son visibles tanto el encabezado de _

              composición de correo electrónico y la barra de _

              herramientas de sobres

    ActiveWorkbook.EnvelopeVisible = True

    ' ---&--- Llamamos al envío...

    With ActiveSheet.MailEnvelope

       .Item.To = Destino

       .Item.cc = ""                         'con copia a...

       .Item.bcc = ""                        'con copia oculta a...

       .Item.Subject = "Asunto del correo"

       .Introduction = Observaciones

       .Item.Send

    End With

End Sub

Sub Mail_Outlook()

    Dim OutApp As Object, rng As Range, _

        OutMail As Object

    Set rng = Nothing

    Set rng = ActiveSheet.UsedRange

    Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    With OutMail

        .SentOnBehalfOfName = Mail_De

        .To = Mail_Para

        .CC = ""

        .BCC = ""

        .Subject = c_Asunto

        .HTMLBody = c_Cuerpo

        .Send   'or use .Display

    End With

    On Error GoTo 0

    With Application

        .EnableEvents = True

        .ScreenUpdating = True

    End With

    Set OutMail = Nothing

    Set OutApp = Nothing

End Sub