Dim objBook As Excel.Workbook       'заводится переменная для открытия документа
Dim objSheet As Excel.Worksheet     'заводится переменная для страницы
Dim z%, i%, j%
Dim xxx$, xx$

Set NewSheet = ActiveSheet

j =  1 
xx = "A" + Trim(Str(j +  1 ))
With Application.FileSearch
    .NewSearch
    .LookIn = "I:\bring dreg"
    .SearchSubFolders = False
    .Filename = "Филиал010"
    .MatchTextExactly = True
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() >  0  Then
        Set objBook = Workbooks.Open("I:\bring dreg\Филиал010.xls")
        Set objSheet = objBook.Worksheets( 1 )
        i =  1 
        Do While objSheet.Cells(i +  1 ,  1 ) <> ""
            i = i +  1 
        Loop
        j = j + i -  1 
        xxx = "A2:L" + Trim(Str(i))
        objSheet.Range(xxx).Copy
        NewSheet.Paste Destination:=NewSheet.Range(xx)
        xx = "A" + Trim(Str(j +  1 ))
        objBook.Close
    End If
End With

With Application.FileSearch
    .NewSearch
    .LookIn = "I:\bring dreg"
    .SearchSubFolders = False
    .Filename = "Филиал030"
    .MatchTextExactly = True
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() >  0  Then
        Set objBook = Workbooks.Open("I:\bring dreg\Филиал030.xls")
        Set objSheet = objBook.Worksheets( 1 )
        i =  1 
        Do While objSheet.Cells(i +  1 ,  1 ) <> ""
            i = i +  1 
        Loop
        j = j + i -  1 
        xxx = "A2:L" + Trim(Str(i))
        objSheet.Range(xxx).Copy
        NewSheet.Paste Destination:=NewSheet.Range(xx)
        xx = "A" + Trim(Str(j +  1 ))
        objBook.Close
    End If
End With