I need to create calculations for about 150 products, each of which consists of about 50-60 sub-products. Depending whether the sub-product is produced or bought in from an external source, the price would be calculated differently. Essentially I need to copy-paste the weight and price for each sub-product included in the product and determine what the source is. 

I would like excel to look at previously made calculations in the same folder (all different workbooks) and if it finds a cell in one of the workbooks, then to copy-paste the weight, price and source to the currently open workbook. I'm completely lost as to how to compare the cells and if a match is found, then copy that to the right place. I believe .Find and .FindNext could be useful here, but I'm not entirely sure how to use them. 

Below is an example of how my data is structured:
![enter image description here](https://i.stack.imgur.com/Le7Rd.png)

And this is what I've found so far: 

```
    Sub RunCodeOnAllXLSFiles()
            Dim lCount As Long
            Dim wbResults As Workbook
            Dim wbCodeBook As Workbook

       Application.ScreenUpdating = False
       Application.DisplayAlerts = False
       Application.EnableEvents = False

       On Error Resume Next
           Set wbCodeBook = ThisWorkbook
               With Application.FileSearch
                    .NewSearch
                    'Change path to suit
                    .LookIn = "C:\ahjualune\stuff"
                    .FileType = msoFileTypeExcelWorkbooks
                    'Optional filter with wildcard
                    .Filename = "*NAV*.xls*"
            If .Execute > 0 Then 'Workbooks in folder
                For lCount = 1 To .FoundFiles.Count 'Loop through all
                    'Open Workbook x and Set a Workbook variable to it
                    Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)

                    'DO YOUR CODE HERE
                    With ActiveSheet
                             For Each c In .Range("B2:B90").Cells
   ' problematic place         If c.Value = Then

                                  End If
                            Next c
                    End With

                    wbResults.Close SaveChanges:=False
                Next lCount
            End If
    End With
    On Error GoTo 0
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    End Sub

```