Combine data of some cells in multiple excel files into one sheet

Originally Posted by lotuxel

Hi rocdamiani,
Pls see below and you have to put all the files to one file's sheets and Goal sheet is target sheet.

Sub jw_test()
Dim wb As Workbook
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim re As Variant
Dim i As Long
Dim j As Long
Dim rng As String
   
Set wb = ActiveWorkbook
Set ws = wb.Worksheets("Goal")
j = 2
For Each ws1 In wb.Worksheets

   If ws1.Name <> "Goal" Then
         ws.Cells(j, 1) = ws1.Name
      For i = 0 To 100
            re = Array("C3", "C5", "C8", "D8", "E8", "D9", "G13", "H13", "F22", "F24", "F26", "F29", "F31", "F34", "F40", "D43", "E43", "F46", "D49", "E49", "F52", "F55", "C58", "C59", "C60", "C61", "C62", "")
            rng = re(i)
            If rng = "" Then Exit For
                ws.Cells(j, i + 2) = ws1.Range(rng).Value
     Next i
     End If
     j = j + 1
Next ws1
End Sub

Hi lotuxel,
Thank you for your reply.

Sorry but I didn't understand very well.
I thought the macro was going to open each excel file in the folder and copy those cells into the goal sheet.
Is that happening in the macro? Or how it works? I couldn't understand very well your explanation before the code

Looking forward to hear from you