Automatically transfer data from multiple workbooks into a master workbook

Sub LoopThroughDirectory()
    Dim MyFile As String
    Dim wsMaster As Worksheet
    Dim wbSource As Workbook
    Dim erow As Long
    Dim data(6) As Variant
    Dim i As Integer
    Dim Item As Range

    'Your Master Sheet
    'CHANGE SHEET INDEX /NAME AS REQUIRED
    Set wsMaster = ThisWorkbook.Worksheets(1)

    MyFile = Dir("C:\ToolFolder\WorkObjectives\")
    Application.ScreenUpdating = False
    Do While Len(MyFile) > 0
        If MyFile = "zmaster.xlsm" Then Exit Sub
        Set wbSource = Workbooks.Open(MyFile)

        'Source Copy Sheet
        'CHANGE SHEET INDEX /NAME AS REQUIRED
        With wbSource.Sheets(1)
            For Each Item In .Range("C1,B5,B10,B16,B22,B28")
                data(i) = Item.Value
                i = i + 1
            Next
        End With
        erow = wsMaster.Cells(wsMaster.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        wsMaster.Range("A" & erow & ":F" & erow).Value = data
        MyFile = Dir
        wbSource.Close False
        Set wbSource = Nothing
    Loop
    Application.ScreenUpdating = True
End Sub

Sub LoopThroughDirectory()
Dim MyFile As String, rng As Range, wb As Workbook
MyFile = Dir("C:\ToolFolder\WorkObjectives\*.xl*")
    Do While Len(MyFile) > 0
        If MyFile = "zmaster.xlsm" Then
            Exit Sub
        End If
        Set wb = Workbooks.Open(MyFile)
            With wb.Sheets(1)
                Set rng = Union(.Range("C1"), .Range("B5"), .Range("B10"), .Range("B16"), .Range("B22"), .Range("B28"))
                rng.Copy Workbooks("zmaster.xlsm").Sheets(1).Cells(Rows.Count, 2).End(xlUp)(2)
            End With
        wb.Close
        MyFile = Dir
    Loop
End Sub

    i = 1
    For Each Item In Range("C1,B5,B10,B16,B22,B28")
        data(i) = Item.Value
        i = i + 1
    Next