Error en macro larga, se cuelga excel

alguien me puede ayudar con esto, me sale error en una macro que jala 3 macros y se cuelga excel.

alguien sabe como solucionarlo:

les copio todo el código grande:

Sub Paso1()
Workbooks.Open Filename:="C:\Sistema Decor Center\Plantillas\Rank Clientes.xlsx"
Workbooks.Open Filename:="C:\Sistema Decor Center\Plantillas\Informe de Gestión.xlsb"
Workbooks.Open Filename:="C:\Sistema Decor Center\Plantillas\Reporte Producto.xlsb"
Workbooks.Open Filename:="C:\Sistema Decor Center\Plantillas\Reporte OTB.xlsb"
Workbooks.Open Filename:="C:\Sistema Decor Center\Plantillas\Reporte Marketing.xlsb"
Workbooks.Open Filename:="C:\Sistema Decor Center\Plantillas\Resumen Tipos de Stock.xlsb"
Workbooks.Open Filename:="C:\Sistema Decor Center\Plantillas\Análisis rotación.xlsb"
Windows("Rank Clientes.xlsx").Activate
Sheets("Data").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("E2:G2").Select
Selection.Copy
Range("E2:G10000").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close False
Windows("Informe de Gestión.xlsb").Activate
Sheets("Índice").Select
Range("I2").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("UN 1").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B39").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B86").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B106").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B126").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B149").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B173").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B196").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("UN 2").Select
Range("B7").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B114").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("UN 3").Select
Range("B7").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B114").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("UN 4").Select
Range("B4").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("UN 5").Select
Range("B4").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Campañas").Select
Range("B5").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Marca 1").Select
Range("B12").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B181").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B348").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B515").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Marca 2").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Marca 3").Select
Range("B5").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Marca 4").Select
Range("B5").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Clientes 1").Select
Range("C6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B13").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B122").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B231").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Clientes 2").Select
Range("B7").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Clientes 3").Select
Range("B7").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Clientes 4").Select
Range("B5").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Asesor 1").Select
Range("B7").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B163").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B318").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("B474").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Asesor 2").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Asesor 3").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Asesor 4").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Asesor 5").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Asesor 6").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Asesor 7").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("BD").Select
Range("B2").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("Q18").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("BK3").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("BS3").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("BY3").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("BD").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Asesor 8").Select
Range("B6").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("D6").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = _
...