Pull Data from Multiple Workbooks

First of all, you should attach a sample excel sheet not a png file. You can remove all sensitive data and then upload.

Also, what mail software are you using - Outlook or gmail, yahoo, etc?
If its outlook, you can have a macro that opens up each email received, opens the attachment, consolidates the data, closes the attachment and proceeds to the next one.

Alternatively, you can also save each attachment in 1 folder on your system, have the macro compile these sheets and then delete the files for you.

Dear All,

I Copied this Code from here and there but its not working somehow,

Sub copyData()
    Dim sourceWB As Workbook
    With Application
        .ScreenUpdating = False    'hide actions
        'open database
        Set sourceWB = Workbooks.Open("C:\Foldername\" & "Data Base.xls")
        With sourceWB
            'copy first data
            .Sheets("Main Sheet").Range("D8:D10").Copy
            'paste special to D4
            ThisWorkbook.Sheet1.Range("D4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                                  :=False, Transpose:=False
            'copy second block of data
            Sheets("Main Sheet").Range("D13:D14").Copy
            'paste to g4
            ThisWorkbook.Sheet1.Range("G4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                                    :=False, Transpose:=False
        currentWB.Activate
        Sheets(strWhereToCopy).Select
        lastRow = LastRowInOneColumn(strStartCellColName)
        Cells(lastRow + 1, 1).Select
        
        Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
        Application.CutCopyMode = False
        dataWB.Close False
        Sheets(strListSheet).Select
        ActiveCell.Offset(1, 0).Select
    Loop
    Exit Sub
    
ErrH:
    MsgBox "It seems some file was missing. The data copy operation is not complete."
    Exit Sub
End Sub
 
            .Close False    'close source workbook
        End With
        'restore screen updating
         .ScreenUpdating = True
        .CutCopyMode = False
    End With
End Sub

Public Function LastRowInOneColumn(col)
    'Find the last used row in a Column: column A in this example
    'http://www.rondebruin.nl/last.htm
    Dim lastRow As Long
    With ActiveSheet
    lastRow = .Cells(.Rows.Count, col).End(xlUp).Row
    End With
    LastRowInOneColumn = lastRow
End Function

The scenario is this..I want the Master workbook to copy from diffrent workbook from specific Sheet A2:G505 saved in sub folders each. Each Workbook saved will be copied in the master workbook same sheet one after another. is it necessary to wite each files formula in the Master Workbook? e.g.

1 Activity.xslm C:\Users\EloisePranabika\Desktop\Projects\Paul_Wall $A$2 $F$505 MasterData $A$2:$A$505
2 Activity.xslm C:\Users\EloisePranabika\Desktop\Projects\Hrides $A$1 $H$50 Master Data $A$2:$A$505
3 Activity.xslm C:\Users\EloisePranabika\Desktop\Projects\Sam $A$1 $H$50 Master Data $A$2:$A$505

Please help me I am in a Deadline................

So do you want the macro to be in outlook? or in excel?

Once upon a time i used to use a macro that was in excel but used to retrieve files from outlook. It will take me sometime to search it up.