Sub searchandcopy()
Dim datasheet As Worksheet
Dim reportsheet As Worksheet
Dim accountnum As String
Dim finalrow As Integer
Dim i As Integer
Dim edress As String
Dim subj As String
Dim message As String
Dim filename As String
Dim outlookapp As Object
Dim erange As Range
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim path As String
Dim attachment As String

Set erange = Sheet3.Range("A2:B500")

Set datasheet = Sheet1
Set reportsheet = Sheet2
accountnum = reportsheet.Range("A1").Value
edress = Application.WorksheetFunction.VLookup(accountnum, erange, 2, False)

reportsheet.Range("B1").Value = edress

reportsheet.Range("A3:I10000").ClearContents

datasheet.Select
finalrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 4 To finalrow
    If Cells(i, 1) = accountnum Then
    Range(Cells(i, 3), Cells(i, 9)).Copy
    reportsheet.Select
    Range("A200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
    datasheet.Select
    
    End If
Next i

reportsheet.Select
Set outlookapp = CreateObject("Outlook.Application")
    Set outlookmailitem = outlookapp.createitem(0)
    Set myAttachments = outlookmailitem.Attachments

'path = "C:\Users\PradeepPranav\Downloads\"
    Application.DisplayAlerts = False
    
  filename = accountnum & ".pdf"
    subj = accountnum
    
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
            path + filename, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False
    
    attachment = path + filename
        
        outlookmailitem.To = edress
        outlookmailitem.cc = "[email protected]"
        outlookmailitem.bcc = ""
        outlookmailitem.Subject = subj
        outlookmailitem.body = "Please find your feedback recieved from banker throung Worflow Echange" & vbCrLf & "Best Regards"
           
            
        myAttachments.Add (attachment)
        outlookmailitem.display
        'outlookmailitem.send
        Application.DisplayAlerts = True
        
        Set outlookapp = Nothing
        Set outlookmailitem = Nothing
        
         



Range("A1").Select



End Sub