CONSOLIDATORS

no_transmisibles_21.bas

Sub consolidate()
    
    Dim Destiny As Workbook
    Set Destiny = ThisWorkbook
    
    Dim Data As Workbook
    Dim Path As String
    
    Dim mrs As Variant
    mrs = Array( _
        "1 HUANUCO", _
        "2 AMARILIS", _
        "3 CHINCHAO", _
        "4 CHURUBAMBA", _
        "5 MARGOS", _
        "6 HUANCAPALLAC", _
        "7 SAN FRANCISCO DE CAYRAN", _
        "8 SAN PEDRO DE CHAULAN", _
        "9 SANTA MARIA DE VALLE", _
        "10 YARUMAYO", _
        "11 PILLCOMARCA", _
        "12 YACUS", _
        "13 SAN PABLO DE PILLAO" _
    )
    Dim mr As Variant
    
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Dim mainDirectory As String
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    mainDirectory = GetFolderPath
    
    Dim currentRow As Integer
    Set firstCell = Application.InputBox(prompt:="Seleccione primera celda donde poner los datos:", Type:=8)
    currentRow = firstCell.Row
    
    For Each mr In mrs
        
        Debug.Print mainDirectory & "\" & mr
        
        Set oFolder = oFSO.GetFolder(mainDirectory & "\" & mr)
        
        For Each oFile In oFolder.Files
        
            Set Data = Workbooks.Open(oFile.Path)
            
            Debug.Print "- " & currentRow & " " & oFile.Name
            CopyValues Data, Destiny, currentRow
                        
            Data.Close savechanges:=False
            currentRow = currentRow + 1
            
        Next oFile
            
        currentRow = currentRow + 1
        
    Next mr
    
    MsgBox "SE COMPLETO LA CONSOLIDACION DE DATOS"
End Sub
Sub CopyValues(Data, Destiny, DestinyInitRow)
    Dim Selection As Range
    Dim Cel As Range
    Dim Counter As Integer
    
    Dim originCells As Variant
    originCells = Array( _
        "S12", "AC12", "AN12", "AZ12", "BM12", "BZ12", "S13", "AC13", "AN13", "AZ13", "BM13", "BZ13", "S14", "AC14", "AN14", "AZ14", "BM14", "BZ14", "S15", "AC15", "AN15", "AZ15", "BM15", "BZ15", "S16", "AC16", "AN16", "AZ16", "BM16", "BZ16", "S17", "AC17", "AN17", "AZ17", "BM17", "BZ17", "S18", "AC18", "AN18", "AZ18", "BM18", "BZ18", "S19", "AC19", "AN19", "AZ19", "BM19", "BZ19", _
        "S20", "AC20", "AN20", "AZ20", "BM20", "BZ20", "S21", "AC21", "AN21", "AZ21", "BM21", "BZ21", "S22", "AC22", "AN22", "AZ22", "BM22", "BZ22", "S23", "AC23", "AN23", "AZ23", "BM23", "BZ23", "S24", "AC24", "AN24", "AZ24", "BM24", "BZ24", "S25", "AC25", "AN25", "AZ25", "BM25", "BZ25", "S26", "AC26", "AN26", "AZ26", "BM26", "BZ26", "S27", "AC27", "AN27", "AZ27", "BM27", "BZ27", _
        "S32", "AC32", "AN32", "AZ32", "BM32", "BZ32", "S33", "AC33", "AN33", "AZ33", "BM33", "BZ33", "S39", "AC39", "AN39", "AZ39", "BM39", "BZ39", "S40", "AC40", "AN40", "AZ40", "BM40", "BZ40", "R44", "AB44", "AM44", "AY44", "BL44", "BY44", "R45", "AB45", "AM45", "AY45", "BL45", "BY45", "R46", "AB46", "AM46", "AY46", "BL46", "BY46", "Q52", "AA52", "AL52", "AX52", "BK52", "BX52", _
        "Q53", "AA53", "AL53", "AX53", "BK53", "BX53", "Q61", "AA61", "AL61", "AX61", "BK61", "BX61", "Q62", "AA62", "AL62", "AX62", "BK62", "BX62", "Q63", "AA63", "AL63", "AX63", "BK63", "BX63", "Q64", "AA64", "AL64", "AX64", "BK64", "BX64", "Q65", "AA65", "AL65", "AX65", "BK65", "BX65", "P72", "Z72", "AK72", "AW72", "BJ72", "BW72", "P73", "Z73", "AK73", "AW73", "BJ73", "BW73", _
        "P79", "Z79", "AK79", "AW79", "BJ79", "BW79", "P80", "Z80", "AK80", "AW80", "BJ80", "BW80", "P85", "Z85", "AK85", "AW85", "BJ85", "BW85", "P86", "Z86", "AK86", "AW86", "BJ86", "BW86", "BC91", "BO91", "CB91", "CQ91", "CZ91", "DC91", "BC92", "BO92", "CB92", "CQ92", "CZ92", "DC92", "BC93", "BO93", "CB93", "CQ93", "CZ93", "DC93", "BC94", "BO94", "CB94", "CQ94", "CZ94", "DC94", _
        "BC95", "BO95", "CB95", "CQ95", "CZ95", "DC95", "BC96", "BO96", "CB96", "CQ96", "CZ96", "DC96", "S102", "AC102", "AN102", "AZ102", "BM102", "BZ102", "S103", "AC103", "AN103", "AZ103", "BM103", "BZ103", "S104", "AC104", "AN104", "AZ104", "BM104", "BZ104", "S105", "AC105", "AN105", "AZ105", "BM105", "BZ105", "O110", "Y110", "O111", "Y111",  "O112", "Y112", "O113", "Y113", "O114", "Y114", "O115", "Y115", _
        "T122", "AE122", "AO122", "BB122", "BN122", "CA122", "T123", "AE123", "AO123", "BB123", "BN123", "CA123", "T124", "AE124", "AO124", "BB124", "BN124", "CA124", "T125", "AE125", "AO125", "BB125", "BN125", "CA125", "T126", "AE126", "AO126", "BB126", "BN126", "CA126", "T127", "AE127", "AO127", "BB127", "BN127", "CA127", "T128", "AE128", "AO128", "BB128", "BN128", "CA128", "T129", "AE129", "AO129", "BB129", "BN129", "CA129", _
        "T130", "AE130", "AO130", "BB130", "BN130", "CA130", "T131", "AE131", "AO131", "BB131", "BN131", "CA131", "U138", "AF138", "AQ138", "BD138", "BP138", "CC138", "U139", "AF139", "AQ139", "BD139", "BP139", "CC139", "U140", "AF140", "AQ140", "BD140", "BP140", "CC140", "U141", "AF141", "AQ141", "BD141", "BP141", "CC141", "BI147", "BU147", "CH147", "CY147", "DB147", "DE147", "BI148", "BU148", "CH148", "CY148", "DB148", "DE148", _
        "BI149", "BU149", "CH149", "CY149", "DB149", "DE149", "BI150", "BU150", "CH150", "CY150", "DB150", "DE150", "BI151", "BU151", "CH151", "CY151", "DB151", "DE151", "BI152", "BU152", "CH152", "CY152", "DB152", "DE152", "BI153", "BU153", "CH153", "CY153", "DB153", "DE153", "BI154", "BU154", "CH154", "CY154", "DB154", "DE154", "BH160", "BT160", "CG160", "CX160", "DA160", "DD160", "BH161", "BT161", "CG161", "CX161", "DA161", "DD161", _
        "BH162", "BT162", "CG162", "CX162", "DA162", "DD162", "BH163", "BT163", "CG163", "CX163", "DA163", "DD163", "BH164", "BT164", "CG164", "CX164", "DA164", "DD164", "BH165", "BT165", "CG165", "CX165", "DA165", "DD165", "BH166", "BT166", "CG166", "CX166", "DA166", "DD166", "BH167", "BT167", "CG167", "CX167", "DA167", "DD167", "X173", "AJ173", "AT173", "BG173", "BS173", "CF173", "X174", "AJ174", "AT174", "BG174", "BS174", "CF174", _
        "X175", "AJ175", "AT175", "BG175", "BS175", "CF175", "X176", "AJ176", "AT176", "BG176", "BS176", "CF176", "X181", "AJ181", "AT181", "BG181", "BS181", "CF181", "X183", "AJ183", "AT183", "BG183", "BS183", "CF183", "X185", "AJ185", "AT185", "BG185", "BS185", "CF185", "V196", "AH196", "AR196", "BE196", "BQ196", "CD196", "V197", "AH197", "AR197", "BE197", "BQ197", "CD197", "V203", "AH203", "AR203", "BE203", "BQ203", "CD203", _
        "W209", "AI209", "AS209", "BF209", "BR209", "CE209", "W210", "AI210", "AS210", "BF210", "BR210", "CE210", "V216", "AH216", "AR216", "BE216", "BQ216", "CD216", "V217", "AH217", "AR217", "BE217", "BQ217", "CD217", _
        "V221", "AH221", "AR221", "BE221", "BQ221", "CD221" _
    )
        
    Set Selection = Destiny.Sheets(1).Range("D" & DestinyInitRow & ":UM" & DestinyInitRow)
    
    For Each Cel In Selection.Cells
        Cel.Value = Data.Sheets(1).Range(originCells(Counter))
        
        If Len(Cel.Value) < 1 Then
            Cel.Value = 0
        End If
        
        Counter = Counter + 1
    Next Cel
End Sub
Function GetFolderPath() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "SELECCIONA LA CARPETA DE DATOS PARA DANIOS NO TRANSMISIBLES"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolderPath = sItem
    Set fldr = Nothing
End Function

promsa_20.bas

Sub consolidate()
    
    Dim Destiny As Workbook
    Set Destiny = ThisWorkbook
    
    Dim Data As Workbook
    Dim Path As String
    
    Dim mrs As Variant
    mrs = Array( _
        "1 HUANUCO", _
        "2 AMARILIS", _
        "3 CHINCHAO", _
        "4 CHURUBAMBA", _
        "5 MARGOS", _
        "6 HUANCAPALLAC", _
        "7 SAN FRANCISCO DE CAYRAN", _
        "8 SAN PEDRO DE CHAULAN", _
        "9 SANTA MARIA DE VALLE", _
        "10 YARUMAYO", _
        "11 PILLCOMARCA", _
        "12 YACUS", _
        "13 SAN PABLO DE PILLAO" _
    )
    Dim mr As Variant
    
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Dim mainDirectory As String
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    mainDirectory = GetFolderPath
    
    Dim currentRow As Integer
    Set firstCell = Application.InputBox(prompt:="Seleccione primera celda donde poner los datos:", Type:=8)
    currentRow = firstCell.Row
    
    For Each mr In mrs
        
        Debug.Print mainDirectory & "\" & mr
        
        Set oFolder = oFSO.GetFolder(mainDirectory & "\" & mr)
        
        For Each oFile In oFolder.Files
        
            Set Data = Workbooks.Open(oFile.Path)
            
            Debug.Print "- " & currentRow & " " & oFile.Name
            CopyValues Data, Destiny, currentRow
                        
            Data.Close savechanges:=False
            currentRow = currentRow + 1
            
        Next oFile
            
        currentRow = currentRow + 1
        
    Next mr
    
    MsgBox "SE COMPLETO LA CONSOLIDACION DE DATOS"
End Sub
Sub CopyValues(Data, Destiny, DestinyInitRow)
    Dim Selection As Range
    Dim Cel As Range
    Dim Counter As Integer
    
    Dim originCells As Variant
    originCells = Array( _
        "CE17", "FB17", "IL17", "LX17", "OU17", "RP17", "TE17", "UU17", _
        "CE18", "FB18", "IL18", "LX18", "OU18", "RP18", "TE18", "UU18", _
        "CE24", "FB24", "IL24", "LX24", _
        "CE25", "FB25", "IL25", "LX25", _
        "CE31", "FB31", "IL31", "LX31", "OU31", "RP31", "TE31", "UU31", "WS31", "XT31", "YU31", "ZN31", _
        "CE32", "FB32", "IL32", "LX32", "OU32", "RP32", "TE32", "UU32", "WS32", "XT32", "YU32", "ZN32", _
        "DM41", "GP41", "KC41", "NM41", "QF41", "SI41", "UC41", "VY41", "XH41", "YE41", "ZC41", "ZW41", "AAQ41", "ABC41", "ABG41", "ABI41", "ABK41", "ABM41", "ABO41", _
        "DM42", "GP42", "KC42", "NM42", "QF42", "SI42", "UC42", "VY42", "XH42", "YE42", "ZC42", "ZW42", "AAQ42", "ABC42", "ABG42", "ABI42", "ABK42", "ABM42", "ABO42", _
        "DM43", "GP43", "KC43", "NM43", "QF43", "SI43", "UC43", "VY43", "XH43", "YE43", "ZC43", "ZW43", "AAQ43", "ABC43", "ABG43", "ABI43", "ABK43", "ABM43", "ABO43", _
        "DM44", "GP44", "KC44", "NM44", "QF44", "SI44", "UC44", "VY44", "XH44", "YE44", "ZC44", "ZW44", "AAQ44", "ABC44", "ABG44", "ABI44", "ABK44", "ABM44", "ABO44", _
        "DM45", "GP45", "KC45", "NM45", "QF45", "SI45", "UC45", "VY45", "XH45", "YE45", "ZC45", "ZW45", "AAQ45", "ABC45", "ABG45", "ABI45", "ABK45", "ABM45", "ABO45", _
        "DM46", "GP46", "KC46", "NM46", "QF46", "SI46", "UC46", "VY46", "XH46", "YE46", "ZC46", "ZW46", "AAQ46", "ABC46", "ABG46", "ABI46", "ABK46", "ABM46", "ABO46", _
        "DM47", "GP47", "KC47", "NM47", "QF47", "SI47", "UC47", "VY47", "XH47", "YE47", "ZC47", "ZW47", "AAQ47", "ABC47", "ABG47", "ABI47", "ABK47", "ABM47", "ABO47", _
        "DM48", "GP48", "KC48", "NM48", "QF48", "SI48", "UC48", "VY48", "XH48", "YE48", "ZC48", "ZW48", "AAQ48", "ABC48", "ABG48", "ABI48", "ABK48", "ABM48", "ABO48", _
        "DM49", "GP49", "KC49", "NM49", "QF49", "SI49", "UC49", "VY49", "XH49", "YE49", "ZC49", "ZW49", "AAQ49", "ABC49", "ABG49", "ABI49", "ABK49", "ABM49", "ABO49", _
        "DM50", "GP50", "KC50", "NM50", "QF50", "SI50", "UC50", "VY50", "XH50", "YE50", "ZC50", "ZW50", "AAQ50", "ABC50", "ABG50", "ABI50", "ABK50", "ABM50", "ABO50", _
        "DM51", "GP51", "KC51", "NM51", "QF51", "SI51", "UC51", "VY51", "XH51", "YE51", "ZC51", "ZW51", "AAQ51", "ABC51", "ABG51", "ABI51", "ABK51", "ABM51", "ABO51", _
        "DM52", "GP52", "KC52", "NM52", "QF52", "SI52", "UC52", "VY52", "XH52", "YE52", "ZC52", "ZW52", "AAQ52", "ABC52", "ABG52", "ABI52", "ABK52", "ABM52", "ABO52", _
        "DM53", "GP53", "KC53", "NM53", "QF53", "SI53", "UC53", "VY53", "XH53", "YE53", "ZC53", "ZW53", "AAQ53", "ABC53", "ABG53", "ABI53", "ABK53", "ABM53", "ABO53", _
        "DM54", "GP54", "KC54", "NM54", "QF54", "SI54", "UC54", "VY54", "XH54", "YE54", "ZC54", "ZW54", "AAQ54", "ABC54", "ABG54", "ABI54", "ABK54", "ABM54", "ABO54", _
        "DM55", "GP55", "KC55", "NM55", "QF55", "SI55", "UC55", "VY55", "XH55", "YE55", "ZC55", "ZW55", "AAQ55", "ABC55", "ABG55", "ABI55", "ABK55", "ABM55", "ABO55", _
        "DM60", "FB60", _
        "DM61", "FB61", _
        "CE65", "FD65", "ID65", "LQ65", _
        "CE66", "FD66", "ID66", "LQ66", _
        "CE67", "FD67", "ID67", "LQ67", _
        "CE68", "FD68", "ID68", "LQ68", _
        "CE72", "FD72", "ID72", "LQ72", _
        "CE73", "FD73", "ID73", "LQ73", _
        "CE77", "FD77", "ID77", "LQ77", _
        "CE78", "FD78", "ID78", "LQ78", _
        "CE79", "FD79", "ID79", "LQ79", _
        "CE80", "FD80", "ID80", "LQ80", _
        "CE83", "FD83", _
        "CE84", "FD84", _
        "IB89", "LR89", _
        "IB90", "LR90", _
        "IB91", "LR91", _
        "IB92", "LR92", _
        "FD95", "IM95", _
        "FD96", "IM96", _
        "FD97", "IM97", _
        "FD98", "IM98", _
        "FD101", "IM101", _
        "FD102", "IM102", _
        "FD103", "IM103", _
        "CE108", "DV108", _
        "FB112", "IZ112", "LL112", "OV112", "QS112", "SZ112", "UK112", "WI112", _
        "FB115", "JK115", _ 
        "FB116", "JK116", _
        "DM119", "FV119", "IG119", _
        "T123", "AZ123", "DA123", "FC123", _
        "HC128", "JM128", _
        "HC129", "JM129", _
        "DM132", "GQ132", _
        "DM133", "GQ133", _
        "DM134", "GQ134", _

    )
        
    Set Selection = Destiny.Sheets(1).Range("D" & DestinyInitRow & ":FEL" & DestinyInitRow)
    
    For Each Cel In Selection.Cells
        Cel.Value = Data.Sheets(1).Range(originCells(Counter))
        
        If Len(Cel.Value) < 1 Then
            Cel.Value = 0
        End If
        
        Counter = Counter + 1
    Next Cel
End Sub
Function GetFolderPath() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "SELECCIONA LA CARPETA DE DATOS PARA SALUD FAMILIAR"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolderPath = sItem
    Set fldr = Nothing
End Function


"CE17", "FB17", "IL17", "LX17", "OU17", "RP17", "TE17", "UU17", "CE18", "FB18", "IL18", "LX18", "OU18", "RP18", "TE18", "UU18", "CE24", "FB24", "IL24", "LX24", "CE25", "FB25", "IL25", "LX25", "CE31", "FB31", "IL31", "LX31", "OU31", "RP31", "TE31", "UU31", "WS31", "XT31", "YU31", "ZN31", "CE32", "FB32", "IL32", "LX32",
"OU32", "RP32", "TE32", "UU32", "WS32", "XT32", "YU32", "ZN32",
"DM41", "GP41", "KC41", "NM41", "QF41", "SI41", "UC41", "VY41", "XH41", "YE41", "ZC41", "ZW41", "AAQ41", "ABC41", "ABG41", "ABI41", "ABK41", "ABM41", "ABO41",
"DM42", "GP42", "KC42", "NM42", "QF42", "SI42", "UC42", "VY42", "XH42", "YE42", "ZC42", "ZW42", "AAQ42", "ABC42", "ABG42", "ABI42", "ABK42", "ABM42", "ABO42",
"DM43", "GP43", "KC43", "NM43", "QF43", "SI43", "UC43", "VY43", "XH43", "YE43", "ZC43", "ZW43", "AAQ43", "ABC43", "ABG43", "ABI43", "ABK43", "ABM43", "ABO43",
"DM44", "GP44", "KC44", "NM44", "QF44", "SI44", "UC44", "VY44", "XH44", "YE44", "ZC44", "ZW44", "AAQ44", "ABC44", "ABG44", "ABI44", "ABK44", "ABM44", "ABO44",
"DM45", "GP45", "KC45", "NM45", "QF45", "SI45", "UC45", "VY45", "XH45", "YE45", "ZC45", "ZW45", "AAQ45", "ABC45", "ABG45", "ABI45", "ABK45", "ABM45", "ABO45",
"DM46", "GP46", "KC46", "NM46", "QF46", "SI46", "UC46", "VY46", "XH46", "YE46", "ZC46", "ZW46", "AAQ46", "ABC46", "ABG46", "ABI46", "ABK46", "ABM46", "ABO46",
"DM47", "GP47", "KC47", "NM47", "QF47", "SI47", "UC47", "VY47", "XH47", "YE47", "ZC47", "ZW47", "AAQ47", "ABC47", "ABG47", "ABI47", "ABK47", "ABM47", "ABO47",
"DM48", "GP48", "KC48", "NM48", "QF48", "SI48", "UC48", "VY48", "XH48", "YE48", "ZC48", "ZW48", "AAQ48", "ABC48", "ABG48", "ABI48", "ABK48", "ABM48", "ABO48",
"DM49", "GP49", "KC49", "NM49", "QF49", "SI49", "UC49", "VY49", "XH49", "YE49", "ZC49", "ZW49", "AAQ49", "ABC49", "ABG49", "ABI49", "ABK49", "ABM49", "ABO49",
"DM50", "GP50", "KC50", "NM50", "QF50", "SI50", "UC50", "VY50", "XH50", "YE50", "ZC50", "ZW50", "AAQ50", "ABC50", "ABG50", "ABI50", "ABK50", "ABM50", "ABO50",
"DM51", "GP51", "KC51", "NM51", "QF51", "SI51", "UC51", "VY51", "XH51", "YE51", "ZC51", "ZW51", "AAQ51", "ABC51", "ABG51", "ABI51", "ABK51", "ABM51", "ABO51",
"DM52", "GP52", "KC52", "NM52", "QF52", "SI52", "UC52", "VY52", "XH52", "YE52", "ZC52", "ZW52", "AAQ52", "ABC52", "ABG52", "ABI52", "ABK52", "ABM52", "ABO52",
"DM53", "GP53", "KC53", "NM53", "QF53", "SI53", "UC53", "VY53", "XH53", "YE53", "ZC53", "ZW53", "AAQ53", "ABC53", "ABG53", "ABI53", "ABK53", "ABM53", "ABO53",
"DM54", "GP54", "KC54", "NM54", "QF54", "SI54", "UC54", "VY54", "XH54", "YE54", "ZC54", "ZW54", "AAQ54", "ABC54", "ABG54", "ABI54", "ABK54", "ABM54", "ABO54",
"DM55", "GP55", "KC55", "NM55", "QF55", "SI55", "UC55", "VY55", "XH55", "YE55", "ZC55", "ZW55", "AAQ55", "ABC55", "ABG55", "ABI55", "ABK55", "ABM55", "ABO55",
"DM60", "FB60", "DM61", "FB61",
"CE65", "FD65", "ID65", "LQ65",
"CE66", "FD66", "ID66", "LQ66",
"CE67", "FD67", "ID67", "LQ67",
"CE68", "FD68", "ID68", "LQ68",
"CE72", "FD72", "ID72", "LQ72",
"CE73", "FD73", "ID73", "LQ73",
"CE77", "FD77", "ID77", "LQ77",
"CE78", "FD78", "ID78", "LQ78",
"CE79", "FD79", "ID79", "LQ79",
"CE80", "FD80", "ID80", "LQ80",
"CE83", "FD83", "CE84", "FD84",
"IB89", "LR89", "IB90", "L90",
"IB91", "L91", "IB92", "L92",
"FD95", "IM95", "FD96", "IM96",
"FD97", "IM97", "FD98", "IM98",
"FD101", "IM101", "FD102", "IM102",
"FD103", "IM103", "CE108", "DV108",
"FB112", "IZ112", "LL112", "OV112", "QS112", "SZ112", "UK112", "WI112",
"FB115", "JK115", "FB116", "JK116",
"DM119", "FV119", "IG119", 
"T123", "AZ123", "DA123", "FC123",
"HC128", "JM128", "HC129", "JM129",
"DM132", "GQ132", "DM133", "GQ133",
"DM134", "GQ134", "FX141", "IH141",
"IK146", "LD146",
"FW154", "IZ154", "MG154", "OY154", "RO154", "TD154", "UQ154", "WM154", "XO154", "YM154", "ZH154",
"FW155", "IZ155", "MG155", "OY155", "RO155", "TD155", "UQ155", "WM155", "XO155", "YM155", "ZH155",
"FX158", "JA158", "FX159", "JA159",
"FX160", "JA160", "JB165", "MJ165",
"JB166", "MJ166",
"FX172", "JD172", "LV172", "OS172", "RA172", "SX172",
"FX176", "JD176", "FX181", "IO181",
"FX184", "JD184", "LE184", "OH184", "QE184", "SG184",
"JC190", "LT190", "FX194", "A206", "T206", "AZ206",
"A212",
"T212",
"AZ212",
"A219",
"A224",
"DW230",
"GD230",
"IQ230",
"KO230",
"NC230",
"PA230",
"DW231",
"GD231",
"IQ231",
"KO231",
"NC231",
"PA231",
"DW232",
"GD232",
"IQ232",
"KO232",
"NC232",
"PA232",
"DW233",
"GD233",
"IQ233",
"KO233",
"NC233",
"PA233",
"DW234",
"GD234",
"IQ234",
"KO234",
"NC234",
"PA234",
"DW235",
"GD235",
"IQ235",
"KO235",
"NC235",
"PA235",
"DW236",
"GD236",
"IQ236",
"KO236",
"NC236",
"PA236",
"DW237",
"GD237",
"IQ237",
"KO237",
"NC237",
"PA237",
"A242",
"T242",
"DW247",
"GD247",
"DW248",
"GD248",
"DW249",
"GD249",
"DW250",
"GD250",
"DW251",
"GD251",
"DW252",
"GD252",
"DW253",
"GD253",
"T261",
"AZ261",
"T267",
"AZ267",
"DW273",
"GD273",
"IQ273",
"KO273",
"DW274",
"GD274",
"IQ274",
"KO274",
"DW275",
"GD275",
"IQ275",
"KO275",
"DW276",
"GD276",
"IQ276",
"KO276",
"DW277",
"GD277",
"IQ277",
"KO277",
"DW278",
"GD278",
"IQ278",
"KO278",
"DW279",
"GD279",
"IQ279",
"KO279",
"DW285",
"GD285",
"IQ285",
"KO285",
"DW286",
"GD286",
"IQ286",
"KO286",
"DW287",
"GD287",
"IQ287",
"KO287",
"DW288",
"GD288",	
"IQ288",
"KO288",
"DW289",
"GD289",
"IQ289",
"KO289",
"DW290",
"GD290",
"IQ290",
"KO290",
"DW291",
"GD291",
"IQ291",
"KO291",
"DW299",
"GD299",
"IQ299",
"KO299",
"NC299",
"PA299",
"QU299",
"SD299",
"DW300",
"GD300",
"IQ300",
"KO300",
"NC300",
"PA300",
"QU300",
"SD300",
"DW301",
"GD301",
"IQ301",
"KO301",
"NC301",
"PA301",
"QU301",
"SD301",
"DW306",
"GD306",
"IQ306",
"DW307",
"GD307",
"IQ307",
"DW308",
"GD308",
"IQ308",
"DW313",
"GD313",
"DW314",
"GD314",
"DW315",
"GD315",
"DW322",
"GD322",
"IQ322",
"DW323",
"GD323",
"IQ323",
"DW324",
"GD324",
"IQ324",
"A337",
"BQ337",
"GK337",
"A345",
"BQ345",
"GK345",
"T353",
"AZ353",
"CN353",
"EO353",
"T354",
"AZ354",
"CN354",
"EO354",
"A364",
"T364",
"AZ364",
"CN364",
"A370",
"T370",
"AZ370",
"CN370",
"AP380",
"CD380",
"DU380",
"GA380",
"AP386",
"CD386",
"DU386",
"GA386",
"AP393",
"CD393",
"DU393",
"GA393",
"IJ393",
"KN393",
"MW393",
"OX393",
"AP394",
"CD394",
"DU394",
"GA394",
"IJ394",
"KN394",
"MW394",
"OX394",
"A401",
"T401",
"AZ401",
"CN401",
"EO401",
"GP401",
"JF401",
"LI401",
"DD409",
"FE409",
"HI409",
"JR409",
"DD410",
"FE410",
"HI410",
"JR410",
"DD411",
"FE411",
"HI411",
"JR411",
"BQ420",
"DI420",
"FO420",
"HP420",
"KA420",
"MM420",
"OK420",
"QG420",
"BQ421",
"DI421",
"FO421",
"HP421",
"KA421",
"MM421",
"OK421",
"QG421",
"BQ428",
"DI428",
"FO428",
"HP428",
"KA428",
"MM428",
"OK428",
"QG428",
"BQ429",
"DI429",
"FO429",
"HP429",
"KA429",
"MM429",
"OK429",
"QG429",
"BQ437",
"DI437",
"FO437",
"HP437",
"BQ438",
"DI438",
"FO438",
"HP438",
"BQ444",
"DI444",
"FO444",
"HP444",
"BQ445",
"DI445",
"FO445",
"HP445",
"AP453",
"CD453",
"DU453",
"GA453",
"AP459",
"CD459",
"DU459",
"GA459",
"BL467",
"DE467",
"FK467",
"HK467",
"BL468",
"DE468",
"FK468",
"HK468",
"BL469",
"DE469",
"FK469",
"HK469",
"BL475",
"DE475",
"FK475",
"HK475",
"BL476",
"DE476",
"FK476",
"HK476",
"BL477",
"DE477",
"FK477",
"HK477",
"AP485",
"CD485",
"DU485",
"GA485",
"AP486",
"CD486",
"DU486",
"GA486",
"AP493",
"CD493",
"DU493",
"GA493",
"IJ493",
"KN493",
"MW493",
"OX493",
"AV504",
"CJ504",
"EC504",
"GI504",
"IX504",
"KW504",
"NJ504",
"PK504",
"QZ504",
"AV505",
"CJ505",
"EC505",
"GI505",
"IX505",
"KW505",
"NJ505",
"PK505",
"QZ505",
"AV506",
"CJ506",
"EC506",
"GI506",
"IX506",
"KW506",
"NJ506",
"PK506",
"QZ506",
"AV507",
"CJ507",
"EC507",
"GI507",
"IX507",
"KW507",
"NJ507",
"PK507",
"QZ507",
"AW513",
"CK513",
"ED513",
"GJ513",
"IY513",
"KX513",
"AW514",
"CK514",
"ED514",
"GJ514",
"IY514",
"KX514",
"AW515",
"CK515",
"ED515",
"GJ515",
"IY515",
"KX515",
"AW516",
"CK516",
"ED516",
"GJ516",
"IY516",
"KX516",
"E526",
"V526",
"BB526",
"ER526",
"ER526",
"GS526",
"JH526",
"LK526",
"NR526",
"C530",
"U530",
"BA530",
"CO530",
"EP530",
"GR530",
"C536",
"U536",
"BH536",
"CY536",
"FN536",
"HW536",
"KK536",
"NA536",
"PO536",
"RL536",
"SU536",
"TZ536",
"VU536",
"WT536",
"XN536",
"YI536",
"ZA536",
"ZP536",
"C540",
"U540",
"BH540",
"CY540",
"FN540",
"HW540",
"KK540",
"NA540",
"PO540",
"RL540",
"SU540",
"TZ540",
"C546",
"U546",
"BA546",
"CO546",
"EP546",
"GR546",
"JG546",
"LJ546",
"NQ546",
"C550",
"U550",
"BA550",
"CO550",
"EP550",
"GR550",
"DJ556",
"FR556",
"HT556",
"KD556",
"MP556",
"OM556",
"QI556",
"RU556",
"TA556",
"UG556",
"VR556",
"WO556",
"XJ556",
"YA556",
"YR556",
"ZE556",
"ZT556",
"AAK556",
"DJ557",
"FR557",
"HT557",
"KD557",
"MP557",
"OM557",
"QI557",
"RU557",
"TA557",
"UG557",
"VR557",
"WO557",
"XJ557",
"YA557",
"YR557",
"ZE557",
"ZT557",
"AAK557",
"DJ561",
"FR561",
"HT561",
"KD561",
"MP561",
"OM561",
"QI561",
"RU561",
"TA561",
"UG561",
"VR561",
"WO561",
"DJ562",
"FR562",
"HT562",
"KD562",
"MP562",
"OM562",
"QI562",
"RU562",
"TA562",
"UG562",
"VR562",
"WO562",
"U568",
"BA568",
"CX568",
"EZ568",
"HQ568",
"KB568",
"MX568",
"OZ568",
"RK568",
"SO568",
"UA568",
"VH568",
"WU568",
"XM568",
"YJ568",
"YX568",
"ZQ568",
"AAH568",
"U569",
"BA569",
"CX569",
"EZ569",
"HQ569",
"KB569",
"MX569",
"OZ569",
"RK569",
"SO569",
"UA569",
"VH569",
"WU569",
"XM569",
"YJ569",
"YX569",
"ZQ569",
"AAH569",
"U570",
"BA570",
"CX570",
"EZ570",
"HQ570",
"KB570",
"MX570",
"OZ570",
"RK570",
"SO570",
"UA570",
"VH570",
"WU570",
"XM570",
"YJ570",
"YX570",
"ZQ570",
"AAH570",
"U571",
"BA571",
"CX571",
"EZ571",
"HQ571",
"KB571",
"MX571",
"OZ571",
"RK571",
"SO571",
"UA571",
"VH571",
"WU571",
"XM571",
"YJ571",
"YX571",
"ZQ571",
"AAH571",
"U572",
"BA572",
"CX572",
"EZ572",
"HQ572",
"KB572",
"MX572",
"OZ572",
"RK572",
"SO572",
"UA572",
"VH572",
"WU572",
"XM572",
"YJ572",
"YX572",
"ZQ572",
"AAH572",
"U573",
"BA573",
"CX573",
"EZ573",
"HQ573",
"KB573",
"MX573",
"OZ573",
"RK573",
"SO573",
"UA573",
"VH573",
"WU573",
"XM573",
"YJ573",
"YX573",
"ZQ573",
"AAH573",
"U577",
"BA577",
"CX577",
"EZ577",
"HQ577",
"KB577",
"MX577",
"OZ577",
"RK577",
"SO577",
"UA577",
"VH577",
"U578",
"BA578",
"CX578",
"EZ578",
"HQ578",
"KB578",
"MX578",
"OZ578",
"RK578",
"SO578",
"UA578",
"VH578",
"U579",
"BA579",
"CX579",
"EZ579",
"HQ579",
"KB579",
"MX579",
"OZ579",
"RK579",
"SO579",
"UA579",
"VH579",
"U580",
"BA580",
"CX580",
"EZ580",
"HQ580",
"KB580",
"MX580",
"OZ580",
"RK580",
"SO580",
"UA580",
"VH580",
"U581",
"BA581",
"CX581",
"EZ581",
"HQ581",
"KB581",
"MX581",
"OZ581",
"RK581",
"SO581",
"UA581",
"VH581",
"U582",
"BA582",
"CX582",
"EZ582",
"HQ582",
"KB582",
"MX582",
"OZ582",
"RK582",
"SO582",
"UA582",
"VH582",
"BE590",
"CT590",
"FS590",
"HU590",
"KY590",
"NL590",
"PY590",
"RR590",
"TF590",
"UN590",
"WD590",
"XB590",
"XX590",
"YQ590",
"ZJ590",
"ZY590",
"AAP590",
"AAX590",
"BE591",
"CT591",
"FS591",
"HU591",
"KY591",
"NL591",
"PY591",
"RR591",
"TF591",
"UN591",
"WD591",
"XB591",
"XX591",
"YQ591",
"ZJ591",
"ZY591",
"AAP591",
"AAX591",
"BE592",
"CT592",
"FS592",
"HU592",
"KY592",
"NL592",
"PY592",
"RR592",
"TF592",
"UN592",
"WD592",
"XB592",
"XX592",
"YQ592",
"ZJ592",
"ZY592",
"AAP592",
"AAX592",
"BE593",
"CT593",
"FS593",
"HU593",
"KY593",
"NL593",
"PY593",
"RR593",
"TF593",
"UN593",
"WD593",
"XB593",
"XX593",
"YQ593",
"ZJ593",
"ZY593",
"AAP593",
"AAX593",
"BF599",
"CV599",
"FS599",
"HU599",
"KY599",
"NL599",
"PY599",
"RR599",
"TF599",
"UN599",
"WD599",
"XB599",
"XX599",
"YQ599",
"ZJ599",
"ZY599",
"AAP599",
"AAX599",
"BF600",
"CV600",
"FS600",
"HU600",
"KY600",
"NL600",
"PY600",
"RR600",
"TF600",
"UN600",
"WD600",
"XB600",
"XX600",
"YQ600",
"ZJ600",
"ZY600",
"AAP600",
"AAX600",
"BF601",
"CV601",
"FS601",
"HU601",
"KY601",
"NL601",
PY601	
RR601	
TF601	
UN601	
WD601	
XB601	
XX601	
YQ601	
ZJ601	
ZY601	
AAP601	
AAX601	
BF602	
CV602	
FS602	
HU602	
KY602	
NL602	
PY602	
"RR602",
"TF602",
"UN602",
"WD602",
"XB602",
"XX602",
"YQ602",
"ZJ602",
"ZY602",
"AAP602",
"AAX602",
"BF608",
"CV608",
"FT608",
"HU608",
"KZ608",
"NL608",
"PZ608",
"RQ608",
"TG608",
"UN608",
"WE608",
"XB608",
"BF609",
"CV609",
"FT609",
"HU609",
"KZ609",
"NL609",
"PZ609",
"RQ609",
"TG609",
"UN609",
"WE609",
"XB609",
"BF610",
"CV610",
"FT610",
"HU610",
"KZ610",
"NL610",
"PZ610",
"RQ610",
"TG610",
"UN610",
"WE610",
"XB610",
"BF611",
"CV611",
"FT611",
"HU611",
"KZ611",
"NL611",
"PZ611",
"RQ611",
"TG611",
"UN611",
"WE611",
"XB611",
"BG617",
"CW617",
"FT617",
"HU617",
"KZ617",
"NL617",
"QA617",
"RR617",
"TG617",
"UN617",
"WE617",
"XB617",
"BG618",
"CW618",
"FT618",
"HU618",
"KZ618",
"NL618",
"QA618",
"RR618",
"TG618",
"UN618",
"WE618",
"XB618",
"BG619",
"CW619",
"FT619",
"HU619",
"KZ619",
"NL619",
"QA619",
"RR619",
"TG619",
"UN619",
"WE619",
"XB619",
"BG620",
"CW620",
"FT620",
"HU620",
"KZ620",
"NL620",
"QA620",
"RR620",
"TG620",
"UN620",
"WE620",
"XB620",
"BE626",
"CT626",
"EV626",
"HA626",
"JJ626",
"LP626",
"NW626",
"PW626",
"RM626",
"SQ626",
"TW626",
"UT626",
"WG626",
"XC626",
"XU626",
"YL626",
"ZB626",
"ZO626",
"BE627",
"CT627",
"EV627",
"HA627",
"JJ627",
"LP627",
"NW627",
"PW627",
"RM627",
"SQ627",
"TW627",
"UT627",
"WG627",
"XC627",
"XU627",
"YL627",
"ZB627",
"ZO627",
"BE628",
"CT628",
"EV628",
"HA628",
"JJ628",
"LP628",
"NW628",
"PW628",
"RM628",
"SQ628",
"TW628",
"UT628",
"WG628",
"XC628",
"XU628",
"YL628",
"ZB628",
"ZO628",
"BE629",
"CT629",
"EV629",
"HA629",
"JJ629",
"LP629",
"NW629",
"PW629",
"RM629",
"SQ629",
"TW629",
"UT629",
"WG629",
"XC629",
"XU629",
"YL629",
"ZB629",
"ZO629",
"BE633",
"CT633",
"EV633",
"HA633",
"JJ633",
"LP633",
"NW633",
"PW633",
"RM633",
"SQ633",
"TW633",
"UT633",
"BE634",
"CT634",
"EV634",
"HA634",
"JJ634",
"LP634",
"NW634",
"PW634",
"RM634",
"SQ634",
"TW634",
"UT634",
"BE635",
"CT635",
"EV635",
"HA635",
"JJ635",
"LP635",
"NW635",
"PW635",
"RM635",
"SQ635",
"TW635",
"UT635",
"BE636",
"CT636",
"EV636",
"HA636",
"JJ636",
"LP636",
"NW636",
"PW636",
"RM636",
"SQ636",
"TW636",
"UT636",
"EN642",
"GO642",
"JE642",
"LH642",
"NO642",
"PR642",
"RH642",
"SJ642",
"TQ642",
"UR642",
"WB642",
"WZ642",
"XS642",
"YK642",
"YZ642",
"ZM642",
"AAB642",
"AAN642",
"EN643",
"GO643",
"JE643",
"LH643",
"NO643",
"PR643",
"RH643",
"SJ643",
"TQ643",
"UR643",
"WB643",
"WZ643",
"XS643",
"YK643",
"YZ643",
"ZM643",
"AAB643",
"AAN643",
"EN644",
"GO644",
"JE644",
"LH644",
"NO644",
"PR644",
"RH644",
"SJ644",
"TQ644",
"UR644",
"WB644",
"WZ644",
"XS644",
"YK644",
"YZ644",
"ZM644",
"AAB644",
"AAN644",
"EN645",
"GO645",
"JE645",
"LH645",
"NO645",
"PR645",
"RH645",
"SJ645",
"TQ645",
"UR645",
"WB645",
"WZ645",
"XS645",
"YK645",
"YZ645",
"ZM645",
"AAB645",
"AAN645",
"EN646",
"GO646",
"JE646",
"LH646",
"NO646",
"PR646",
"RH646",
"SJ646",
"TQ646",
"UR646",
"WB646",
"WZ646",
"XS646",
"YK646",
"YZ646",
"ZM646",
"AAB646",
"AAN646",
"EN647",
"GO647",
"JE647",
"LH647",
"NO647",
"PR647",
"RH647",
"SJ647",
"TQ647",
"UR647",
"WB647",
"WZ647",
"XS647",
"YK647",
"YZ647",
"ZM647",
"AAB647",
"AAN647",
"EN648",
"GO648",
"JE648",
"LH648",
"NO648",
"PR648",
"RH648",
"SJ648",
"TQ648",
"UR648",
"WB648",
"WZ648",
"XS648",
"YK648",
"YZ648",
"ZM648",
"AAB648",
"AAN648",
"EN649",
"GO649",
"JE649",
"LH649",
"NO649",
"PR649",
"RH649",
"SJ649",
"TQ649",
"UR649",
"WB649",
"WZ649",
"XS649",
"YK649",
"YZ649",
"ZM649",
"AAB649",
"AAN649",
"EN650",
"GO650",
"JE650",
"LH650",
"NO650",
"PR650",
"RH650",
"SJ650",
"TQ650",
"UR650",
"WB650",
"WZ650",
"XS650",
"YK650",
"YZ650",
"ZM650",
"AAB650",
"AAN650",
"EN651",
"GO651",
"JE651",
"LH651",
"NO651",
"PR651",
"RH651",
"SJ651",
"TQ651",
"UR651",
"WB651",
"WZ651",
"XS651",
"YK651",
"YZ651",
"ZM651",
"AAB651",
"AAN651",
"EN652",
"GO652",
"JE652",
"LH652",
"NO652",
"PR652",
"RH652",
"SJ652",
"TQ652",
"UR652",
"WB652",
"WZ652",
"XS652",
"YK652",
"YZ652",
"ZM652",
"AAB652",
"AAN652",
"EN653",
"GO653",
"JE653",
"LH653",
"NO653",
"PR653",
"RH653",
"SJ653",
"TQ653",
"UR653",
"WB653",
"WZ653",
"XS653",
"YK653",
"YZ653",
"ZM653",
"AAB653",
"AAN653",
"EN657",
"GO657",
"JE657",
"LH657",
"NO657",
"PR657",
"RH657",
"SJ657",
"TQ657",
"UR657",
"WB657",
"WZ657",
"EN658",
"GO658",
"JE658",
"LH658",
"NO658",
"PR658",
"RH658",
"SJ658",
"TQ658",
"UR658",
"WB658",
"WZ658",
"EN659",
"GO659",
"JE659",
"LH659",
"NO659",
"PR659",
"RH659",
"SJ659",
"TQ659",
"UR659",
"WB659",
"WZ659",
"EN660",
"GO660",
"JE660",
"LH660",
"NO660",
"PR660",
"RH660",
"SJ660",
"TQ660",
"UR660",
"WB660",
"WZ660",
"EN661",
"GO661",
"JE661",
"LH661",
"NO661",
"PR661",
"RH661",
"SJ661",
"TQ661",
"UR661",
"WB661",
"WZ661",	

EN662	
GO662	
JE662	
LH662	
NO662	
PR662	
RH662	
SJ662	
TQ662	
UR662	
WB662	
WZ662	
EN663	
GO663	
JE663	
LH663	
NO663	
PR663	
RH663	
SJ663	
TQ663	
UR663	
WB663	
WZ663	
EN664	
GO664	
JE664	
LH664	
NO664	
PR664	
RH664	
SJ664	
TQ664	
UR664	
WB664	
WZ664	
EN665	
GO665	
JE665	
LH665	
NO665	
PR665	
RH665	
SJ665	
TQ665	
UR665	
WB665	
WZ665	
EN666	
GO666	
JE666	
LH666	
NO666	
PR666	
RH666	
SJ666	
TQ666	
UR666	
WB666	
WZ666	
EN667	
GO667	
JE667	
LH667	
NO667	
PR667	
RH667	
SJ667	
TQ667	
UR667	
WB667	
WZ667	
EN668	
GO668	
JE668	
LH668	
NO668	
PR668	
RH668	
SJ668	
TQ668	
UR668	
WB668	
WZ668	
AI676	
BR676	
DK676	
FT676	
HU676	
KE676	
MQ676	
ON676	
QJ676	
AI677	
BR677	
DK677	
FT677	
HU677	
KE677	
MQ677	
ON677	
QJ677	
AI678	
BR678	
DK678	
FT678	
HU678	
KE678	
MQ678	
ON678	
QJ678	
AI679	
BR679	
DK679	
FT679	
HU679	
KE679	
MQ679	
ON679	
QJ679	
AI680	
BR680	
DK680	
FT680	
HU680	
KE680	
MQ680	
ON680	
QJ680	
AI684	
BR684	
DK684	
FT684	
HU684	
KE684	
AI685	
BR685	
DK685	
FT685	
HU685	
KE685	
AI686	
BR686	
DK686	
FT686	
HU686	
KE686	
AI687	
BR687	
DK687	
FT687	
HU687	
KE687	
AI688	
BR688	
DK688	
FT688	
HU688	
KE688	
S694	
BC694	
CS694	
EY694	
HG694	
JQ694	
MH694	
OG694	
QH694	
S695	
BC695	
CS695	
EY695	
HG695	
JQ695	
MH695	
OG695	
QH695	
X702	
BC702	
CR702	
ES702	
GU702	
JI702	
X703	
BC703	
CR703	
ES703	
GU703	
JI703	
AY709	
CM709	
EN709	
GO709	
JE709	
LH709	
NO709	
PR709	
RH709	
AY710	
CM710	
EN710	
GO710	
JE710	
LH710	
NO710	
PR710	
RH710	
AY711	
CM711	
EN711	
GO711	
JE711	
LH711	
NO711	
PR711	
RH711	
AY712	
CM712	
EN712	
GO712	
JE712	
LH712	
NO712	
PR712	
RH712	
AY713	
CM713	
EN713	
GO713	
JE713	
LH713	
NO713	
PR713	
RH713	
AY714	
CM714	
EN714	
GO714	
JE714	
LH714	
NO714	
PR714	
RH714	
BC718	
CR718	
ES718	
GU718	
JI718	
LM718	
BC719	
CR719	
ES719	
GU719	
JI719	
LM719	
BC720	
CR720	
ES720	
GU720	
JI720	
LM720	
BC721	
CR721	
ES721	
GU721	
JI721	
LM721	
BC722	
CR722	
ES722	
GU722	
JI722	
LM722	
BC723	
CR723	
ES723	
GU723	
JI723	
LM723	
BC729	
CR729	
ES729	
GU729	
JI729	
LM729	
NU729	
PV729	
RJ729	
BC730	
CR730	
ES730	
GU730	
JI730	
LM730	
NU730	
PV730	
RJ730	
BC734	
CR734	
ES734	
GU734	
JI734	
LM734	
BC735	
CR735	
ES735	
GU735	
JI735	
LM735	
CO745	
EP745	
GO745	
JE745	
LG745	
NN745	
CO746	
EP746	
GO746	
JE746	
LG746	
NN746	
CO747	
EP747	
GO747	
JE747	
LG747	
NN747	
CO748	
EP748	
GO748	
JE748	
LG748	
NN748	
CO749	
EP749	
GO749	
JE749	
LG749	
NN749	
CO750	
EP750	
GO750	
JE750	
LG750	
NN750	
CN756	
EO756	
GP756	
JF756	
LI756	
NP756	
PS756	
RI756	
SK756	
TR756	
US756	
WC756	
CN757	
EO757	
GP757	
JF757	
LI757	
NP757	
PS757	
RI757	
SK757	
TR757	
US757	
WC757	
CN758	
EO758	
GP758	
JF758	
LI758	
NP758	
PS758	
RI758	
SK758	
TR758	
US758	
WC758	
CN759	
EO759	
GP759	
JF759	
LI759	
NP759	
PS759	
RI759	
SK759	
TR759	
US759	
WC759	
CN760	
EO760	
GP760	
JF760	
LI760	
NP760	
PS760	
RI760	
SK760	
TR760	
US760	
WC760	
CN761	
EO761	
GP761	
JF761	
LI761	
NP761	
PS761	
RI761	
SK761	
TR761	
US761	
WC761	
BA769	
CO769	
EP769	
GR769	
JG769	
LJ769	
BA770	
CO770	
EP770	
GR770	
JG770	
LJ770	
AY776	
CM776	
EN776	
GO776	
JE776	
LH776	
NO776	
PR776	
RH776	
SJ776	
TQ776	
UR776	
AY777	
CM777	
EN777	
GO777	
JE777	
LH777	
NO777	
PR777	
RH777	
SJ777	
TQ777	
UR777	
BC783	
CR783	
ES783	
GU783	
JI783	
LM783	
NU783	
PV783	
RJ783	
SM783	
BC784	
CR784	
ES784	
GU784	
JI784	
LM784	
NU784	
PV784	
RJ784	
SM784	
AI790	
BR790	
DK790	
FT790	
HU790	
KE790	
MQ790	
ON790	
QJ790	
RV790	
TB790	
UI790	
VS790	
WP790	
XK790	
YB790	
YS790	
ZF790	
AI791	
BR791	
DK791	
FT791	
HU791	
KE791	
MQ791	
ON791	
QJ791	
RV791	
TB791	
UI791	
VS791	
WP791	
XK791	
YB791	
YS791	
ZF791	
AI792	
BR792	
DK792	
FT792	
HU792	
KE792	
MQ792	
ON792	
QJ792	
RV792	
TB792	
UI792	
VS792	
WP792	
XK792	
YB792	
YS792	
ZF792	
AI796	
BR796	
DK796	
FT796	


HU796	
KE796	
MQ796	
ON796	
QJ796	
RV796	
TB796	
UI796	
AI797	
BR797	
DK797	
FT797	
HU797	
KE797	
MQ797	
ON797	
QJ797	
RV797	
TB797	
UI797	
AI798	
BR798	
DK798	
FT798	
HU798	
KE798	
MQ798	
ON798	
QJ798	
RV798	
TB798	
UI798	
AS804	
CH804	
EA804	
GG804	
IV804	
KU804	
NH804	
PI804	
QX804	
SE804	
TL804	
UO804	
VZ804	
WW804	
XQ804	
YG804	
YV804	
ZK804	
AS805	
CH805	
EA805	
GG805	
IV805	
KU805	
NH805	
PI805	
QX805	
SE805	
TL805	
UO805	
VZ805	
WW805	
XQ805	
YG805	
YV805	
ZK805	
AS806	
CH806	
EA806	
GG806	
IV806	
KU806	
NH806	
PI806	
QX806	
SE806	
TL806	
UO806	
VZ806	
WW806	
XQ806	
YG806	
YV806	
ZK806	
AS807	
CH807	
EA807	
GG807	
IV807	
KU807	
NH807	
PI807	
QX807	
SE807	
TL807	
UO807	
VZ807	
WW807	
XQ807	
YG807	
YV807	
ZK807	
AS808	
CH808	
EA808	
GG808	
IV808	
KU808	
NH808	
PI808	
QX808	
SE808	
TL808	
UO808	
VZ808	
WW808	
XQ808	
YG808	
YV808	
ZK808	
AS809	
CH809	
EA809	
GG809	
IV809	
KU809	
NH809	
PI809	
QX809	
SE809	
TL809	
UO809	
VZ809	
WW809	
XQ809	
YG809	
YV809	
ZK809	
AS810	
CH810	
EA810	
GG810	
IV810	
KU810	
NH810	
PI810	
QX810	
SE810	
TL810	
UO810	
VZ810	
WW810	
XQ810	
YG810	
YV810	
ZK810	
AS811	
CH811	
EA811	
GG811	
IV811	
KU811	
NH811	
PI811	
QX811	
SE811	
TL811	
UO811	
VZ811	
WW811	
XQ811	
YG811	
YV811	
ZK811	
AS812	
CH812	
EA812	
GG812	
IV812	
KU812	
NH812	
PI812	
QX812	
SE812	
TL812	
UO812	
VZ812	
WW812	
XQ812	
YG812	
YV812	
ZK812	
AS813	
CH813	
EA813	
GG813	
IV813	
KU813	
NH813	
PI813	
QX813	
SE813	
TL813	
UO813	
VZ813	
WW813	
XQ813	
YG813	
YV813	
ZK813	
AS814	
CH814	
EA814	
GG814	
IV814	
KU814	
NH814	
PI814	
QX814	
SE814	
TL814	
UO814	
VZ814	
WW814	
XQ814	
YG814	
YV814	
ZK814	
AS815	
CH815	
EA815	
GG815	
IV815	
KU815	
NH815	
PI815	
QX815	
SE815	
TL815	
UO815	
VZ815	
WW815	
XQ815	
YG815	
YV815	
ZK815	
AS819	
CH819	
EA819	
GG819	
IV819	
KU819	
NH819	
PI819	
QX819	
SE819	
TL819	
UO819	
AS820	
CH820	
EA820	
GG820	
IV820	
KU820	
NH820	
PI820	
QX820	
SE820	
TL820	
UO820	
AS821	
CH821	
EA821	
GG821	
IV821	
KU821	
NH821	
PI821	
QX821	
SE821	
TL821	
UO821	
AS822	
CH822	
EA822	
GG822	
IV822	
KU822	
NH822	
PI822	
QX822	
SE822	
TL822	
UO822	
AS823	
CH823	
EA823	
GG823	
IV823	
KU823	
NH823	
PI823	
QX823	
SE823	
TL823	
UO823	
AS824	
CH824	
EA824	
GG824	
IV824	
KU824	
NH824	
PI824	
QX824	
SE824	
TL824	
UO824	
AS825	
CH825	
EA825	
GG825	
IV825	
KU825	
NH825	
PI825	
QX825	
SE825	
TL825	
UO825	
AS826	
CH826	
EA826	
GG826	
IV826	
KU826	
NH826	
PI826	
QX826	
SE826	
TL826	
UO826	
AS827	
CH827	
EA827	
GG827	
IV827	
KU827	
NH827	
PI827	
QX827	
SE827	
TL827	
UO827	
AS828	
CH828	
EA828	
GG828	
IV828	
KU828	
NH828	
PI828	
QX828	
SE828	
TL828	
UO828	
AS829	
CH829	
EA829	
GG829	
IV829	
KU829	
NH829	
PI829	
QX829	
SE829	
TL829	
UO829	
AS830	
CH830	
EA830	
GG830	
IV830	
KU830	
NH830	
PI830	
QX830	
SE830	
TL830	
UO830	
AT836	
CI836	
EB836	
GH836	
IW836	
KV836	
NI836	
PJ836	
QY836	
SF836	
TM836	
UP836	
WA836	
WX836	
XR836	
YH836	
YW836	
ZL836	
AT837	
CI837	
EB837	
GH837	
IW837	
KV837	
NI837	
PJ837	
QY837	
SF837	
TM837	
UP837	
WA837	
WX837	
XR837	
YH837	
YW837	
ZL837	
AT838	
CI838	
EB838	
GH838	
IW838	
KV838	
NI838	
PJ838	
QY838	
SF838	
TM838	
UP838	
WA838	
WX838	
XR838	
YH838	
YW838	
ZL838	
AT839	
CI839	
EB839	
GH839	
IW839	
KV839	
NI839	
PJ839	
QY839	
SF839	
TM839	
UP839	
WA839	
WX839	
XR839	
YH839	
YW839	
ZL839	
AT840	
CI840	
EB840	
GH840	
IW840	
KV840	
NI840	
PJ840	
QY840	
SF840	
TM840	
UP840	
WA840	
WX840	
XR840	
YH840	
YW840	
ZL840	
AT841	
CI841	
EB841	
GH841	
IW841	
KV841	
NI841	
PJ841	
QY841	
SF841	
TM841	
UP841	
WA841	
WX841	
XR841	
YH841	
YW841	
ZL841	
AT842	
CI842	
EB842	
GH842	
IW842	
KV842	
NI842	
PJ842	
QY842	
SF842	
TM842	
UP842	
WA842	
WX842	
XR842	
YH842	
YW842	
ZL842	
AT843	
CI843	
EB843	
GH843	
IW843	
KV843	
NI843	
PJ843	
QY843	
SF843	
TM843	
UP843	
WA843	
WX843	
XR843	
YH843	
YW843	
ZL843	
AT844	
CI844	
EB844	
GH844	
IW844	
KV844	
NI844	
PJ844	
QY844	
SF844	
TM844	
UP844	
WA844	
WX844	
XR844	
YH844	
YW844	
ZL844	
AT845	
CI845	
EB845	
GH845	
IW845	
KV845	
NI845	
PJ845	
QY845	
SF845	


TM845	
UP845	
WA845	
WX845	
XR845	
YH845	
YW845	
ZL845	
AT846	
CI846	
EB846	
GH846	
IW846	
KV846	
NI846	
PJ846	
QY846	
SF846	
TM846	
UP846	
WA846	
WX846	
XR846	
YH846	
YW846	
ZL846	
AT847	
CI847	
EB847	
GH847	
IW847	
KV847	
NI847	
PJ847	
QY847	
SF847	
TM847	
UP847	
WA847	
WX847	
XR847	
YH847	
YW847	
ZL847	
AT851	
CI851	
EB851	
GH851	
IW851	
KV851	
NI851	
PJ851	
QY851	
SF851	
TM851	
UP851	
AT852	
CI852	
EB852	
GH852	
IW852	
KV852	
NI852	
PJ852	
QY852	
SF852	
TM852	
UP852	
AT853	
CI853	
EB853	
GH853	
IW853	
KV853	
NI853	
PJ853	
QY853	
SF853	
TM853	
UP853	
AT854	
CI854	
EB854	
GH854	
IW854	
KV854	
NI854	
PJ854	
QY854	
SF854	
TM854	
UP854	
AT855	
CI855	
EB855	
GH855	
IW855	
KV855	
NI855	
PJ855	
QY855	
SF855	
TM855	
UP855	
AT856	
CI856	
EB856	
GH856	
IW856	
KV856	
NI856	
PJ856	
QY856	
SF856	
TM856	
UP856	
AT857	
CI857	
EB857	
GH857	
IW857	
KV857	
NI857	
PJ857	
QY857	
SF857	
TM857	
UP857	
AT858	
CI858	
EB858	
GH858	
IW858	
KV858	
NI858	
PJ858	
QY858	
SF858	
TM858	
UP858	
AT859	
CI859	
EB859	
GH859	
IW859	
KV859	
NI859	
PJ859	
QY859	
SF859	
TM859	
UP859	
AT860	
CI860	
EB860	
GH860	
IW860	
KV860	
NI860	
PJ860	
QY860	
SF860	
TM860	
UP860	
AT861	
CI861	
EB861	
GH861	
IW861	
KV861	
NI861	
PJ861	
QY861	
SF861	
TM861	
UP861	
AT862	
CI862	
EB862	
GH862	
IW862	
KV862	
NI862	
PJ862	
QY862	
SF862	
TM862	
UP862	
AJ868	
BS868	
DL868	
FU868	
HV868	
KF868	
MR868	
OO868	
QK868	
RW868	
TC868	
UJ868	
VT868	
WQ868	
XL868	
YC868	
YT868	
ZG868	
AJ869	
BS89	
DL869	
FU869	
HV869	
KF869	
MR869	
OO869	
QK869	
RW869	
TC869	
UJ869	
VT869	
WQ869	
XL869	
YC869	
YT869	
ZG869	
AJ870	
BS870	
DL870	
FU870	
HV870	
KF870	
MR870	
OO870	
QK870	
RW870	
TC870	
UJ870	
VT870	
WQ870	
XL870	
YC870	
YT870	
ZG870	
AJ874	
BS874	
DL874	
FU874	
HV874	
KF874	
MR874	
OO874	
QK874	
RW874	
TC874	
UJ874	
AJ875	
BS875	
DL875	
FU875	
HV875	
KF875	
MR875	
OO875	
QK875	
RW875	
TC875	
UJ875	
AJ876	
BS876	
DL876	
FU876	
HV876	
KF876	
MR876	
OO876	
QK876	
RW876	
TC876	
UJ876	
AZ884	
AZ885	
AZ886	
AZ887	
AZ888	
AZ889	
AZ890	
AZ891	
EO896	
GP896	
EO897	
GP897	
EO898	
GP898	
EO899	
GP899	
EO900	
GP900	
EO901	
GP901	
EO902	
GP902	
EO903	
GP903	
A908	
T908	
T915	
AZ915	
T916	
AZ916	
BO918	
AZ924	
CN924	
EO924	
GP924	
JF924	
LI924	
AZ925	
CN925	
EO925	
GP925	
JF925	
LI925	
AZ926	
CN926	
EO926	
GP926	
JF926	
LI926	
AZ927	
CN927	
EO927	
GP927	
JF927	
LI927	
AZ928	
CN928	
EO928	
GP928	
JF928	
LI928	
AZ929	
CN929	
EO929	
GP929	
JF929	
LI929	
AZ930	
CN930	
EO930	
GP930	
JF930	
LI930	
AZ934	
CN934	
EO934	
GP934	
JF934	
LI934	
NP934	
PS934	
AZ935	
CN935	
EO935	
GP935	
JF935	
LI935	
NP935	
PS935	
AZ936	
CN936	
EO936	
GP936	
JF936	
LI936	
NP936	
PS936	
AZ937	
CN937	
EO937	
GP937	
JF937	
LI937	
NP937	
PS937	
AZ938	
CN938	
EO938	
GP938	
JF938	
LI938	
NP938	
PS938	
AZ939	
CN939	
EO939	
GP939	
JF939	
LI939	
NP939	
PS939	
AZ940	
CN940	
EO940	
GP940	
JF940	
LI940	
NP940	
PS940	
AZ946	
CN946	
EO946	
GP946	
AZ947	
CN947	
EO947	
GP947	
AZ948	
CN948	
EO948	
GP948	
AZ949	
CN949	
EO949	
GP949	
AZ950	
CN950	
EO950	
GP950	
AZ951	
CN951	
EO951	
GP951	
AZ952	
CN952	
EO952	
GP952	
AZ957	
CN957	
AZ958	
CN958	
AZ959	
CN959	
AZ960	
CN960	
AZ961	
CN961	
AZ962	
CN962	
AZ963	
CN963	
AB970	
AZ970	
AB971	
AZ971	
AB972	
AZ972	
AB973	
AZ973	
AB978	
AZ978	
AB979	
AZ979	
AB980	
AZ980	
AB985	
AZ985	
AB986	
AZ986	
AB991	
AB992	
AB993	
AB994	
AB999	
T1009	
AZ1009	
T1010	
AZ1010	
A1016	
T1016	
AZ1016	
CN1016	
AZ1021	
EO1021	
JF1021	
A1026	
T1026	
T1034	
AZ1034	
CN1034	
EO1034	
T1035	
AZ1035	
CN1035	
EO1035	
AZ1041	
CN1041	
EO1041	
GP1041	
AZ1042	
CN1042	
EO1042	
GP1042	
AZ1043	
CN1043	
EO1043	
GP1043	
T1049	
AZ1049	
CN1049	
EO1049	
GP1049	
JF1049	
T1050	
AZ1050	
CN1050	
EO1050	
GP1050	
JF1050	
T1051	
AZ1051	
CN1051	
EO1051	
GP1051	
JF1051	
AZ1056	
CN1056	
AZ1057	
CN1057	
AZ1058	
CN1058	
CN1070	
CN1071	
CN1072	
AQ1077	
CF1077	
DZ1077	
GF1077	
IT1077	
KS1077	
NF1077	
PC1077	
A1085	
T1085	
AZ1085	
CN1085	
EO1085	
GP1085	
A1093	
T1093	
A1098	
T1098	
A1104	
T1104	
AZ1104	
CN1104	
EO1104	
GP1104	
AZ1111	
CN1111	
AZ1112	
CN1112	
AZ1113	
CN1113	
AZ1119	



CN1119	
EO1119	
GP1119	
AZ1120	
CN1120	
EO1120	
GP1120	
AZ1121	
CN1121	
EO1121	
GP1121	
AZ1128	
CN1128	
AZ1129	
CN1129	
AZ1130	
CN1130	
AZ1135	
CN1135	
AZ1136	
CN1136	
AZ1137	
CN1137	
AZ1142	
AZ1143	
AZ1144	
AZ1150	
CN1150	
EO1150	
GP1150	
AZ1151	
CN1151	
EO1151	
GP1151	
AZ1152	
CN1152	
EO1152	
GP1152	
AC1163	
BM1163	
DF1163	
AC1164	
BM1164	
DF1164	
AC1165	
BM1165	
DF1165	
AC1171	
BM1171	
DF1171	
FM1171	
AC1172	
BM1172	
DF1172	
FM1172	
AC1173	
BM1173	
DF1173	
FM1173	
AC1179	
BM1179	
DF1179	
FM1179	
HM1179	
JV1179	
MI1179	
OE1179	
QC1179	
RS1179	
SY1179	
UB1179	
VJ1179	
WL1179	
AC1180	
BM1180	
DF1180	
FM1180	
HM1180	
JV1180	
MI1180	
OE1180	
QC1180	
RS1180	
SY1180	
UB1180	
VJ1180	
WL1180	
L1188	
Y1188	
BD1188	
CU1188	
EW1188	
HB1188	
JL1188	
LS1188	
OA1188	
AK1194	
BV1194	
DN1194	
FY1194	
HY1194	
KG1194	
AK1195	
BV1195	
DN1195	
FY1195	
HY1195	
KG1195	
AM1203	
CL1203	
AM1209	
CL1209	
FG1209	
IE1209	
LN1209	
OF1209	
AM1215	
CL1215	
FJ1215	
AM1216	
CL1216	
FJ1216	
BI1224	
DH1224	
FQ1224	
IA1224	
KK1224	
MZ1224	
BI1225	
DH1225	
FQ1225	
IA1225	
KK1225	
MZ1225	
BI1226	
DH1226	
FQ1226	
IA1226	
KK1226	
MZ1226	
BI1227	
DH1227	
FQ1227	
IA1227	
KK1227	
MZ1227	
BJ1233	
DH1233	
FP1233	
HZ1233	
KJ1233	
MY1233	
BJ1234	
DH1234	
FP1234	
HZ1234	
KJ1234	
MY1234	
BJ1235	
DH1235	
FP1235	
HZ1235	
KJ1235	
MY1235	
BJ1236	
DH1236	
FP1236	
HZ1236	
KJ1236	
MY1236	
AN1241	
CM1241	
AN1242	
CM1242	
AN1243	
CM1243	
AR1249	
CZ1249	
FI1249	
IF1249	
KQ1249	
OB1249	
PZ1249	
RZ1249	
AR1250	
CZ1250	
FI1250	
IF1250	
KQ1250	
OB1250	
PZ1250	
RZ1250	
AR1251	
CZ1251	
FI1251	
IF1251	
KQ1251	
OB1251	
PZ1251	
RZ1251	
AR1252	
CZ1252	
FI1252	
IF1252	
KQ1252	
OB1252	
PZ1252	
RZ1252	
AR1253	
CZ1253	
FI1253	
IF1253	
KQ1253	
OB1253	
PZ1253	
RZ1253	
AR1254	
CZ1254	
FI1254	
IF1254	
KQ1254	
OB1254	
PZ1254	
RZ1254	
AR1255	
CZ1255	
FI1255	
IF1255	
KQ1255	
OB1255	
PZ1255	
RZ1255	
AR1256	
CZ1256	
FI1256	
IF1256	
KQ1256	
OB1256	
PZ1256	
RZ1256	
AR1257	
CZ1257	
FI1257	
IF1257	
KQ1257	
OB1257	
PZ1257	
RZ1257	
AR1258	
CZ1258	
FI1258	
IF1258	
KQ1258	
OB1258	
PZ1258	
RZ1258	
AN1264	
CM1264	
EU1264	
AN1265	
CM1265	
EU1265	
AN1266	
CM1266	
EU1266	
AN1267	
CM1267	
EU1267	
AN1268	
CM1268	
EU1268	
AN1275	
CC1275	
DT1275	
GE1275	
AN1276	
CC1276	
DT1276	
GE1276	
AN1277	
CC1277	
DT1277	
GE1277	
AN1278	
CC1278	
DT1278	
GE1278	
AN1279	
CC1279	
DT1279	
GE1279	
AN1280	
CC1280	
DT1280	
GE1280	
AN1285	
CC1285	
AN1286	
CC1286	
BK1292	
DR1292	
GC1292	
JN1292	
MD1292	
OR1292	
QO1292	
SR1292	
BK1293	
DR1293	
GC1293	
JN1293	
MD1293	
OR1293	
QO1293	
SR1293	
BK1294	
DR1294	
GC1294	
JN1294	
MD1294	
OR1294	
QO1294	
SR1294	
BK1295	
DR1295	
GC1295	
JN1295	
MD1295	
OR1295	
QO1295	
SR1295	
AN1300	
CC1300	
AN1301	
CC1301	
AN1302	
CC1302	
AU1310	
DB1310	
FZ1310	
IU1310	
LZ1310	
OP1310	
QV1310	
ST1310	
UH1310	
AU1311	
DB1311	
FZ1311	
IU1311	
LZ1311	
OP1311	
QV1311	
ST1311	
UH1311	
AU1312	
DB1312	
FZ1312	
IU1312	
LZ1312	
OP1312	
QV1312	
ST1312	
UH1312	
AU1313	
DB1313	
FZ1313	
IU1313	
LZ1313	
OP1313	
QV1313	
ST1313	
UH1313	
Q1319	
AH1319	
BY1319	
EJ1319	
GX1319	
JZ1319	
AU1325	
DB1325	
FL1325	
IK1325	
KR1325	
OC1325	
QB1325	
SA1325	
TJ1325	
UX1325	
AU1326	
DB1326	
FL1326	
IK1326	
KR1326	
OC1326	
QB1326	
SA1326	
TJ1326	
UX1326	
AX1331	
CP1331	
EX1331	
AX1332	
CP1332	
EX1332	
O1337	
AR1337	
DP1337	
AR1343	
CZ1343	
FI1343	
IF1343	
AR1344	
CZ1344	
FI1344	
IF1344	
AR1345	
CZ1345	
FI1345	
IF1345	
AR1346	
CZ1346	
FI1346	
IF1346	
AR1347	
CZ1347	
FI1347	
IF1347	
AR1348	
CZ1348	
FI1348	
IF1348	
AR1353	
CZ1353	
AR1354	
CZ1354	
O1364	
AG1364	
BX1364	
EI1364	
O1370	
AG1370	
BX1370	
EI1370	
GW1370	
JY1370	
MO1370	
PF1370	
AN1376	
CM1376	
FI1376	
IF1376	
LO1376	
OI1376	
QR1376	
SS1376	
UI1376	
VZ1376	
XD1376	
YD1376	
YY1376	
ZR1376	
AAM1376	
AAW1376	
ABD1376	
ABH1376	
ABJ1376	
ABL1376	
CA1381	
EM1381	
HJ1381	
CA1384	
EM1384	
HJ1384	
KL1384	



CA1385	
EM1385	
HJ1385	
KL1385	
CA1386	
EM1386	
HJ1386	
KL1386	
CA1387	
EM1387	
HJ1387	
KL1387	
CA1394	
EM1394	
GM1394	
JS1394	
MG1394	
OW1394	
QM1394	
SP1394	
TV1394	
VQ1394	
WN1394	
XP1394	
CA1395	
EM1395	
GM1395	
JS1395	
MG1395	
OW1395	
QM1395	
SP1395	
TV1395	
VQ1395	
WN1395	
XP1395	
CA1396	
EM1396	
GM1396	
JS1396	
MG1396	
OW1396	
QM1396	
SP1396	
TV1396	
VQ1396	
WN1396	
XP1396	
CA1397	
EM1397	
GM1397	
JS1397	
MG1397	
OW1397	
QM1397	
SP1397	
TV1397	
VQ1397	
WN1397	
XP1397	
CA1402	
EM1402	
HJ1402	
KL1402	
CA1403	
EM1403	
HJ1403	
KL1403	
CA1404	
EM1404	
HJ1404	
KL1404	
CA1405	
EM1405	
HJ1405	
KL1405	
CA1412	
EK1412	
HL1412	
KM1412	
CA1413	
EK1413	
HL1413	
KM1413	
CA1414	
EK1414	
HL1414	
KM1414	
CA1415	
EK1415	
HL1415	
KM1415	
BZ1418	
BZ1419	
BZ1420	
BZ1421	
O1431	
AG1431	
BX1431	
EI1431	
M1439	
AF1439	
BW1439	
EH1439	
GT1439	
JX1439	
MN1439	
PD1439	
RC1439	
SW1439	
BT1444	
BT1445	
BT1446	
BU1451	
BU1452	
BT1455	
EF1455	
HH1455	
KI1455	
NS1455	
QD1455	
BT1456	
EF1456	
HH1456	
KI1456	
NS1456	
QD1456	
BT1457	
EF1457	
HH1457	
KI1457	
NS1457	
QD1457	
BT1463	
EF1463	
HD1463	
KH1463	
BT1464	
EF1464	
HD1464	
KH1464	
BT1465	
EF1465	
HD1465	
KH1465	
BT1466	
EF1466	
HD1466	
KH1466	
BT1467	
EF1467	
HD1467	
KH1467	
BT1468	
EF1468	
HD1468	
KH1468	
J1476	
AD1476	
BT1476	
EF1476	
GN1476	
JW1476	
ML1476	
PB1476	
RB1476	
SV1476	
UD1476	
VV1476	
WV1476	
XV1476	
YN1476	
ZI1476	
ZX1476	
AAO1476	
AL1482	
CB1482	
DQ1482	
GB1482	
IP1482	
KT1482	
NG1482	
PN1482	
RD1482	
SN1482	
TU1482	
UY1482	
WH1482	
XE1482	
XW1482	
YO1482	
ZD1482	
ZS1482	
AAJ1482	
AAU1482	
AL1483	
CB1483	
DQ1483	
GB1483	
IP1483	
KT1483	
NG1483	
PN1483	
RD1483	
SN1483	
TU1483	
UY1483	
WH1483	
XE1483	
XW1483	
YO1483	
ZD1483	
ZS1483	
AAJ1483	
AAU1483	
AL1484	
CB1484	
DQ1484	
GB1484	
IP1484	
KT1484	
NG1484	
PN1484	
RD1484	
SN1484	
TU1484	
UY1484	
WH1484	
XE1484	
XW1484	
YO1484	
ZD1484	
ZS1484	
AAJ1484	
AAU1484

salud_familiar_19.bas

Sub consolidate()
    
    Dim Destiny As Workbook
    Set Destiny = ThisWorkbook
    
    Dim Data As Workbook
    Dim Path As String
    
    Dim mrs As Variant
    mrs = Array( _
        "1 HUANUCO", _
        "2 AMARILIS", _
        "3 CHINCHAO", _
        "4 CHURUBAMBA", _
        "5 MARGOS", _
        "6 HUANCAPALLAC", _
        "7 SAN FRANCISCO DE CAYRAN", _
        "8 SAN PEDRO DE CHAULAN", _
        "9 SANTA MARIA DE VALLE", _
        "10 YARUMAYO", _
        "11 PILLCOMARCA", _
        "12 YACUS", _
        "13 SAN PABLO DE PILLAO" _
    )
    Dim mr As Variant
    
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Dim mainDirectory As String
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    mainDirectory = GetFolderPath
    
    Dim currentRow As Integer
    Set firstCell = Application.InputBox(prompt:="Seleccione primera celda donde poner los datos:", Type:=8)
    currentRow = firstCell.Row
    
    For Each mr In mrs
        
        Debug.Print mainDirectory & "\" & mr
        
        Set oFolder = oFSO.GetFolder(mainDirectory & "\" & mr)
        
        For Each oFile In oFolder.Files
        
            Set Data = Workbooks.Open(oFile.Path)
            
            Debug.Print "- " & currentRow & " " & oFile.Name
            CopyValues Data, Destiny, currentRow
                        
            Data.Close savechanges:=False
            currentRow = currentRow + 1
            
        Next oFile
            
        currentRow = currentRow + 1
        
    Next mr
    
    MsgBox "SE COMPLETO LA CONSOLIDACION DE DATOS"
End Sub
Sub CopyValues(Data, Destiny, DestinyInitRow)
    Dim Selection As Range
    Dim Cel As Range
    Dim Counter As Integer
    
    Dim originCells As Variant
    originCells = Array( _
        "G12", "J12", "N12", "P12", "R12", _
        "D13", "G13", "J13", "P13", "R13", _
        "G16", "J16", "N16", "P16", "R16", _
        "G17", "J17", "N17", "P17", "R17", _
        "G18", "J18", "N18", "P18", "R18", _
        "G23", "J23", "N23", "P23", "R23", _
        "H28", "H29", "H30", "H31", "H32", "H33", _
        "F39", "J39", "F40", "J40", "F41", "J41", "F42", "J42", "F43", "J43", "F44", "J44", "F45", "J45", "F46", "J46", "F47", "J47", _
        "F53", "J53", "F54", "J54", "F55", "J55", "F56", "J56", "F57", "J57", "F58", "J58", "F59", "J59", "F60", "J60", "F61", "J61", _
        "F67", "J67", "F68", "J68", "F69", "J69", "F70", "J70", "F71", "J71", "F72", "J72", "F73", "J73", "F74", "J74", _
        "F81", "J81", "M81", "Q81", "S81", "U81", _
        "F82", "J82", "M82", "Q82", "S82", "U82", _
        "F83", "J83", "M83", "Q83", "S83", "U83", _
        "F84", "J84", "M84", "Q84", "S84", "U84", _
        "F85", "J85", "M85", "Q85", "S85", "U85", _
        "F86", "J86", "M86", "Q86", "S86", "U86", _
        "F87", "J87", "M87", "Q87", "S87", "U87", _
        "F88", "J88", "M88", "Q88", "S88", "U88", _
        "E94", "E95", "E96", "E97" _
    )
        
    Set Selection = Destiny.Sheets(1).Range("D" & DestinyInitRow & ":EM" & DestinyInitRow)
    
    For Each Cel In Selection.Cells
        Cel.Value = Data.Sheets(1).Range(originCells(Counter))
        
        If Len(Cel.Value) < 1 Then
            Cel.Value = 0
        End If
        
        Counter = Counter + 1
    Next Cel
End Sub
Function GetFolderPath() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "SELECCIONA LA CARPETA DE DATOS PARA SALUD FAMILIAR"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolderPath = sItem
    Set fldr = Nothing
End Function