Nálam rendesen működött, de átírtam a Jimmy féle formára.

Sub Transzponalas()
    Dim wbSource As Workbook
    Dim SourcePath As String, FName As String
    
    SourcePath = "C:itt_vannak_a_fájlok_mappa"
    FName = Dir(SourcePath & "*.xls", vbNormal)
    While Not FName = ""
        Workbooks.Open Filename:=SourcePath & FName
        Set wbSource = ActiveWorkbook
        Range("A1:DF120").Copy
        Range("A121").Activate
        Selection.PasteSpecial Transpose:=True
        Rows("1:120").Delete
        wbSource.Save
        wbSource.Close
        FName = Dir()
    Wend
End Sub

Most még az lehet baj, hogy Jimmy makrójávan összegyűjtötted 1 füzetbe az adatokat. Ez a gyűjtő füzet ne legyen a megadott könyvtárban.