Option Explicit
 
Dim objFSO As Object, objFolder As Object, objFile As Object
 
Sub Get_All_File_from_SubFolders()
    Dim sFolder As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    Application.ScreenUpdating = False
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    GetSubFolders sFolder
    Set objFolder = Nothing
    Set objFSO = Nothing
    Application.ScreenUpdating = True
End Sub

Private Sub GetSubFolders(sPath)
    Dim sPathSeparator As String, sObjName As String
    Dim wb As Workbook
    Dim sh$, rng$
    Dim iStr
    Set objFolder = objFSO.GetFolder(sPath)
    Select Case objFolder.Name
      Case Is = "Какая_то папка"
        'имя листа и адрес диапазон для вставки значений для папки "Какая_то папка"
        sh = "2": rng = "D23"
        'значение для вставки в указанный диапазон для папки "Какая_то папка"
        iStr = "Информационное письмо № 04-02/02-09" & vbCrLf & "Information letter № 04-02/02-09"
      Case Is = "Другая_папка"
        sh = "3": rng = "D24"
        iStr = "Информационное письмо № 04-02/02-10" & vbCrLf & "Information letter № 04-02/02-10"
      Case Is = "Никакая_папка"
        sh = "4": rng = "D25"
        iStr = "Информационное письмо № 04-02/02-11" & vbCrLf & "Information letter № 04-02/02-11"
    End Select
    For Each objFile In objFolder.Files
        If Replace(objFile.Name, objFSO.GetBaseName(objFile), "") Like ".xls*" Then
            'открываем книгу
            Set wb = Application.Workbooks.Open(sPath & objFile.Name)
            'действия с файлом
            'Запишем значение в указанный диапазон нужного листа для файла, в соответствующей папке
            wb.Worksheets(sh).Range(rng).Value = iStr
            wb.Close True 'wb.Close False '- если в коде надо будет закрывать книгу без сохранения
        End If
    Next
    For Each objFolder In objFolder.SubFolders
        GetSubFolders objFolder.Path & Application.PathSeparator
    Next
End Sub