Сбор данных из разных книг

Sub SborData()
    Dim a(), mas1(), mas2, mas3(), i As Long, ImyFile$, FileSvod$, kz As Long
    Dim Sh As Worksheet, Wb As Workbook
    Dim Poisk As Range, rCol1 As Range
    Set Wb = ActiveWorkbook
    Set Sh = ActiveSheet
    a = Sh.Range("A1:C1").Value
    ImyFile = Dir(Wb.Path & "\*.*")
    FileSvod = Wb.Name
    Do Until ImyFile = ""
        If ImyFile <> FileSvod Then
            Workbooks.Open (Wb.Path & "\" & ImyFile)
            For i = 1 To UBound(a, 2)
                Set Poisk = ActiveSheet.UsedRange.Rows(1).Find(What:=a(1, i), LookIn:=xlValues, _
                    LookAt:=xlPart)
                If Poisk Is Nothing Then GoTo NewFile
                Set rCol1 = ActiveSheet.UsedRange.Columns(Poisk.Column)
                Set rCol1 = rCol1.Cells(2).Resize(rCol1.Cells.Count - 1) 'ñòîëáåö áåç çàãîëîâêà
                If i = 1 Then mas1 = rCol1.Value
                If i = 2 Then mas2 = rCol1.Value
                If i = 3 Then mas3 = rCol1.Value
            Next
            Sh.Activate
            kz = Sh.UsedRange.Rows.Count + 1
            For i = 1 To 4
                Sh.Cells(kz, i).Resize(UBound(mas1, 1), 1) = IIf(i = 1, mas1, IIf(i = 2, mas2, IIf(i = 3, mas3, ImyFile)))
            Next
NewFile:
            Workbooks(ImyFile).Close
        End If
        ImyFile = Dir
    Loop
    
End Sub