vba problem copy paste and email

now try this updated sheet.

just open the workbook & press Alt+F11 and goto Module 1 & change the Mail id to whom you want to send at red line

ub mail_Send()
    Dim OutApp As Object
    Dim OutMail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
   ' Change the mail address and subject in the macro before you run it.
   Application.DisplayAlerts = False
    With OutMail
        .To = "mail id here"
        .CC = ""
        .BCC = ""
        .Subject = "MAIL TESTING"
        .Body = "HEY ITS WORKING FINE !"
        .Attachments.Add ActiveWorkbook.FullName
        .Display " to"
        ' display the mail.
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub