Copying Rows from diffferent workbooks to collated worksheet by filename

[Amy2011]

So i've searched the forum endlessly to an answer to this and can't find one.

I have a master folder with 52 .xlsm files

I want to copy Range B29:BA29 from each workbook (these numbers are calculated averages so I want the value, not the formula)

Then, I have a master workbook with all of the 52 .xlsm filenames in column A - and I want to paste range B29:BA29 into the row which corresponds to its filename, starting at column I

so i guess cells (Ifilename:BHfilename)

 

[Amy2011]

This is what i currently have... when i run the macro it doesn't come up with an error.... but the data does not appear in the collated sheet either...

(keep in mind im new to this, so this code might not be the best way it can be done)

Option Explicit
Sub ProcessAllFilesInSubjectFolders()
Dim MyPath As String, fName As String
Dim wbOpen As Workbook
Dim MySubjects As Range, Subj As Range
Dim Book_Name_Output As Workbook
Set Book_Name_Output = ActiveWorkbook

MyPath = "G:\AH Cricket"
Set MySubjects = ThisWorkbook.Sheets("Sheet1") _
               .Range("A:A").SpecialCells(xlConstants)
For Each Subj In MySubjects
    fName = Dir(MyPath & Subj & "\*.xlsm")   'get first filename for this folder
    
    Do While Len(fName) > 0                 'process each file one at a time
        
        Set wbOpen = Workbooks.Open(MyPath & Subj & fName)
        With wbOpen
            Range("B29:BA29").Select
            Selection.Copy

            .Close False    'closes and saves, change to FALSE to not save changes
        End With
'data output
            Book_Name_Output.Activate
            Sheets("Collated Data").Select
            Cells(fName, 9).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False                       
        fName = Dir
                 'get next filename
    Loop
    
Next Subj

End Sub