Cells(i, 2) = "=CONCATENATE(A" & (i - 1) & ",B" & (i - 1) & ")"

Cells(i, 2) = Cells(i - 1, 2)

Rows(i).Delete

For Each wb In Workbooks
      If wb.Name Like "Файл*.xls*" Then
        wbFound = True
        wb.Activate
        MsgBox wb.Name, vbExclamation: Exit For
      End If
    Next
If wbFound = False Then
        MsgBox "Книга не найдена или не открыта": Exit Sub
    End If

For Each wb In Workbooks
      If wb.Name Like "Файл*.xls*" Then
        wb.Activate
        MsgBox wb.Name, vbExclamation: Exit For
        wbFound = True
      End If
    Next

 If wbFound = False Then Exit Sub

 If wbFound = False Then Exit Sub

Dim wbFound As Boolean

Dim wbFound As String

Dim wb As Workbook
 
For Each wb In Workbooks
  If wb.Name Like "файл*.xls*" Then
  wb.Activate
  MsgBox wb.Name, vbExclamation: Exit For
  End If
Next

'If Not wb.Name Then MsgBox "Книга не найдена или не открыта"
'   Exit Sub

Dim Max_date as Date
Max_date = Application.WorksheetFunction.Max(Columns("E))
MsgBox Max_date

For each wb in Workbooks      
if wb.name like "Report Result*.xls*" then          
msgbox "УРА!!! НАШЛИ!!!",vbinformation:exit for      
end if  
next  

Sub bb()
Dim wb As Workbook
For each wb in Workbooks  
    if wb.name like "файл_02*.xls*" then 
Workbooks(wb.Name).Activate 
        msgbox wb.name,vbinformation:exit for  
    end if  
next  
End Sub

Sub выбор_месяц()
Dim rg As Range
Dim mounth As String
 
mounth = InputBox(prompt:="Введите месяц в формате 'ММ'")
Set rg = Sheets(1).Range("A1").CurrentRegion
Dim i As Long, Rw&
 With Sheets("Лист4")
     Rw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To rg.Rows.Count
 If rg.Cells(i, 7) = "Иванов" And Mid(rg.Cells(i, 3).Value, 4, 2) = mounth Then
 rg.Rows(i).Copy Sheets("Лист4").Rows(Rw)
 Rw = Rw + 1
 End If
 Next i
 End With
End Sub

Sub Сборка()
Dim i As Variant
Dim a()
Dim myR_Total&, myR_i&

    a = Array("01", "02", "03", "04") ' перечисляются листы в нужном порядке
    For i = LBound(a) To UBound(a)
    myR_Total = Sheets("Свод").Range("I" & Sheets("Свод").Rows.Count).End(xlUp).Row
    myR_i = Sheets(i).Range("A" & Sheets(i).Rows.Count).End(xlUp).Row
'Пробовала myR_i = Sheets(Sheets(a(i)).Range("A" & Sheets(a(i))).Rows.Count).End(xlUp).Row, не принимает
    Debug.Print myR_Total
    Debug.Print myR_i
    Sheets(i).Rows("2:" & myR_i).Copy Destination:=Sheets("Свод").Range("I" & myR_Total + 1)
    Next i

End Sub

Result = InputBox("Ведите новое имя Листа для файла '" & arrFiles(i) & "'")
Sheets(1).Name = Result

'открываем каждую книгу из папки с файлами 
For i = 0 To UBound(arrFiles)
Set wb = Application.Workbooks.Open(sFolder & arrFiles(i))
MsgBox "Выбран файл: '" & arrFiles(i) & "'", vbInformation, ""
Sheets(1).Name = "ГВР"

iLastRow = wb1.Worksheets(4).Cells(Rows.Count, "C").End(xlUp).Row + 1
wb2.Worksheets(4).Rows(RowВсего).Copy      
wb1.Worksheets(4).Rows (iLastRow)

'ищем строку "Всего"
RowВсего = wb2.Worksheets(4).Columns(3).Find("*Всего*", , xlValues, xlPart).Row 
wb2.Worksheets(4).Rows(RowВсего).Copy      
wb1.Worksheets(4).Cells(wb1.Worksheets(4).Rows.Count, 3).End(xlUp).Offset(1).PasteSpecial xlPasteValues