macro para libro de trabajo

[jose luis flores apolonio]

que tal buen día espero y me puedan ayudar.

el tema es que estoy generando un libro de trabajo con macros, ya había generado la macro para que me actualizara de unos archivos que se bajan en sistema pero se me esta atorando en la marte marcada con negritas, les dejo el archivo para ver si me pueden ayudar. y haber si se puede hacer mas pequeña

Perdón que les anexe así la macro es que no me deja subir el archivo de excel

 

Sub Actualizar1()
'
' Actualizar1 Macro
'
Sheets("NOtas de entrega").Visible = True
Sheets("Inventario").Visible = True

    Sheets("NOtas de entrega").Select
    Range("B3:AD3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear
    Range("B3").Select
    Windows("VL06N.MHTML").Activate
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("AC:AC").Select
    Selection.TextToColumns Destination:=Range("AC1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter
    Range("E1").Select
    ActiveSheet.Range("$A$1:$AL$159").AutoFilter Field:=5, Criteria1:="0"
    Rows("19:19").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Delete Shift:=xlUp
    Range("E1").Select
    ActiveSheet.Range("$A$1:$AL$114").AutoFilter Field:=5
    Range("O1").Select
    ActiveSheet.Range("$A$1:$AL$114").AutoFilter Field:=15, Criteria1:=Array( _
        "3000027", "3000056", "5000056", "5000024", "5000023", "5000021", "5000012", "5000060", "5000070", "5000082", "5000061", "5000050", "5000120", "5000041", "5000135", "5000040", "2000010", "3000357", "2000011", "5000010", "5000130", "5000045", "5000019", "2000005", "2000001", "5000051", "5000095", "5000037", "2000017", "5000105", "5000115", "5000018", "5000049", "2000008", "5000033", "5000031", "1000002", "5000055", "5000145", "5000121", "3000356", "5000020", "3000355", "5000146", "5000090", "4000846"), _
        Operator:=xlFilterValues
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Delete Shift:=xlUp
    Range("O1").Select
    ActiveSheet.Range("$A$1:$AL$60").AutoFilter Field:=15
    Range("A2:AC2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Copia de Copia de Formato sai IMSS 2018 pruebas.xlsm").Activate
    Range("B3").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.SmallScroll Down:=-36
    Range("B3").Select
    
    Sheets("Inventario").Select
    Range("B2:AM2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear
    Range("B2").Select
    Windows("Inventarios.MHTML").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A2:M2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A2:AL2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Copia de Copia de Formato sai IMSS 2018 pruebas.xlsm").Activate
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=225
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 629
    ActiveWindow.ScrollRow = 1639
    ActiveWindow.ScrollRow = 1721
    ActiveWindow.ScrollRow = 1830
    ActiveWindow.ScrollRow = 1940
    ActiveWindow.ScrollRow = 2404
    ActiveWindow.ScrollRow = 3032
    ActiveWindow.ScrollRow = 3496
    ActiveWindow.ScrollRow = 3660
    ActiveWindow.ScrollRow = 4753
    ActiveWindow.ScrollRow = 5162
    ActiveWindow.ScrollRow = 6091
    ActiveWindow.ScrollRow = 6309
    ActiveWindow.ScrollRow = 7074
    ActiveWindow.ScrollRow = 7156
    ActiveWindow.ScrollRow = 7566
    ActiveWindow.ScrollRow = 7757
    ActiveWindow.ScrollRow = 7975
    ActiveWindow.ScrollRow = 8112
    ActiveWindow.ScrollRow = 8303
    ActiveWindow.ScrollRow = 8330
    ActiveWindow.ScrollRow = 8440
    ActiveWindow.ScrollRow = 8494
    ActiveWindow.ScrollRow = 8603
    ActiveWindow.ScrollRow = 8494
    ActiveWindow.ScrollRow = 8330
    ActiveWindow.ScrollRow = 8139
    ActiveWindow.ScrollRow = 7320
    ActiveWindow.ScrollRow = 7156
    ActiveWindow.ScrollRow = 6856
    ActiveWindow.ScrollRow = 6692
    ActiveWindow.ScrollRow = 6309
    ActiveWindow.ScrollRow = 6118
    ActiveWindow.ScrollRow = 5845
    ActiveWindow.ScrollRow = 5818
    ActiveWindow.ScrollRow = 5736
    ActiveWindow.ScrollRow = 5708
    ActiveWindow.ScrollRow = 5599
    ActiveWindow.ScrollRow = 5572
    ActiveWindow.ScrollRow = 5545
    ActiveWindow.ScrollRow = 5517
    ActiveWindow.ScrollRow = 5435
    ActiveWindow.ScrollRow = 5381
    ActiveWindow.ScrollRow = 5353
    ActiveWindow.ScrollRow = 5271
    ActiveWindow.ScrollRow = 5244
    ActiveWindow.ScrollRow = 5108
    ActiveWindow.ScrollRow = 5053
    ActiveWindow.ScrollRow = 4998
    ActiveWindow.ScrollRow = 4971
    ActiveWindow.ScrollRow = 4944
    ActiveWindow.ScrollRow = 4916
    ActiveWindow.ScrollRow = 4889
    ActiveWindow.ScrollRow = 4862
    ActiveWindow.ScrollRow = 4916
    ActiveWindow.ScrollRow = 4998
    ActiveWindow.ScrollRow = 5135
    ActiveWindow.ScrollRow = 5162
    ActiveWindow.ScrollRow = 5080
    ActiveWindow.ScrollRow = 4862
    ActiveWindow.ScrollRow = 4534
    ActiveWindow.ScrollRow = 4452
    ActiveWindow.ScrollRow = 4343
    ActiveWindow.ScrollRow = 4316
    ActiveWindow.ScrollRow = 4288
    ActiveWindow.ScrollRow = 4234
    ActiveWindow.ScrollRow = 4206
    ActiveWindow.ScrollRow = 4152
    ActiveWindow.ScrollRow = 4124
    ActiveWindow.ScrollRow = 4070
    ActiveWindow.ScrollRow = 4043
    ActiveWindow.ScrollRow = 4015
    ActiveWindow.ScrollRow = 3961
    ActiveWindow.ScrollRow = 3933
    ActiveWindow.ScrollRow = 3879
    ActiveWindow.ScrollRow = 3851
    ActiveWindow.ScrollRow = 3797
    ActiveWindow.ScrollRow = 3769
    ActiveWindow.ScrollRow = 3715
    ActiveWindow.ScrollRow = 3687
    ActiveWindow.ScrollRow = 3660
    ActiveWindow.ScrollRow = 3633
    ActiveWindow.ScrollRow = 3606
    ActiveWindow.ScrollRow = 3578
    ActiveWindow.ScrollRow = 3496
    ActiveWindow.ScrollRow = 3469
    ActiveWindow.ScrollRow = 3442
    ActiveWindow.ScrollRow = 3387
    ActiveWindow.ScrollRow = 3332
    ActiveWindow.ScrollRow = 3305
    ActiveWindow.ScrollRow = 3250
    ActiveWindow.ScrollRow = 3223
    ActiveWindow.ScrollRow = 3196
    ActiveWindow.ScrollRow = 3169
    ActiveWindow.ScrollRow = 3141
    ActiveWindow.ScrollRow = 3114
    ActiveWindow.ScrollRow = 3087
    ActiveWindow.ScrollRow = 3032
    ActiveWindow.ScrollRow = 3005
    ActiveWindow.ScrollRow = 2950
    ActiveWindow.ScrollRow = 2923
    ActiveWindow.ScrollRow = 2895
    ActiveWindow.ScrollRow = 2868
    ActiveWindow.ScrollRow = 2814
    ActiveWindow.ScrollRow = 2786
    ActiveWindow.ScrollRow = 2732
    ActiveWindow.ScrollRow = 2677
    ActiveWindow.ScrollRow = 2650
    ActiveWindow.ScrollRow = 2622
    ActiveWindow.ScrollRow = 2595
    ActiveWindow.ScrollRow = 2486
    ActiveWindow.ScrollRow = 2458
    ActiveWindow.ScrollRow = 2404
    ActiveWindow.ScrollRow = 2377
    ActiveWindow.ScrollRow = 2349
    ActiveWindow.ScrollRow = 2322
    ActiveWindow.ScrollRow = 2295
    ActiveWindow.ScrollRow = 2267
    ActiveWindow.ScrollRow = 2240
    ActiveWindow.ScrollRow = 2213
    ActiveWindow.ScrollRow = 2185
    ActiveWindow.ScrollRow = 2158
    ActiveWindow.ScrollRow = 2103
    ActiveWindow.ScrollRow = 2076
    ActiveWindow.ScrollRow = 2049
    ActiveWindow.ScrollRow = 2022
    ActiveWindow.ScrollRow = 1967
    ActiveWindow.ScrollRow = 1940
    ActiveWindow.ScrollRow = 1885
    ActiveWindow.ScrollRow = 1858
    ActiveWindow.ScrollRow = 1830
    ActiveWindow.ScrollRow = 1803
    ActiveWindow.ScrollRow = 1721
    ActiveWindow.ScrollRow = 1694
    ActiveWindow.ScrollRow = 1666
    ActiveWindow.ScrollRow = 1639
    ActiveWindow.ScrollRow = 1585
    ActiveWindow.ScrollRow = 1557
    ActiveWindow.ScrollRow = 1530
    ActiveWindow.ScrollRow = 1475
    ActiveWindow.ScrollRow = 1448
    ActiveWindow.ScrollRow = 1393
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1284
    ActiveWindow.ScrollRow = 1257
    ActiveWindow.ScrollRow = 1202
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1120
    ActiveWindow.ScrollRow = 1038
    ActiveWindow.ScrollRow = 984
    ActiveWindow.ScrollRow = 956
    ActiveWindow.ScrollRow = 929
    ActiveWindow.ScrollRow = 902
    ActiveWindow.ScrollRow = 929
    ActiveWindow.ScrollRow = 984
    ActiveWindow.ScrollRow = 1175
    Range("A1").Select
End Sub