Коллеги!
Помогите разобраться:
Имеется макрос, заполняющий таблицу excel с функциями по итоговым ячейкам.
При исполнении макроса застеваю на ошибке Windows("Книга1.xls").Activate
Вот полный текст макроса:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 01.01.2001 (home)
'

'
Range("A2").Select
Columns("A:A").ColumnWidth = 13.14
Range("A2").Select
ActiveCell.FormulaR1C1 = "До 100 пачек"
Range("A3").Select
ActiveCell.FormulaR1C1 = "До 200 пачек"
Range("A4").Select
ActiveCell.FormulaR1C1 = "Более 200 пачек"
Range("A5").Select
ActiveCell.FormulaR1C1 = "Итого"
Range("B2").Select
Columns("A:A").ColumnWidth = 14.29
Range("A5").Select
ActiveCell.FormulaR1C1 = "Итого:"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Июнь"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Июль"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Август"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Сентабрь"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Октябрь"
Range("G1").Select
ActiveCell.FormulaR1C1 = "Итого"
Range("H1").Select
Columns("H:H").ColumnWidth = 17.14
Range("H1").Select
ActiveCell.FormulaR1C1 = "% от общей "
Windows("Книга1.xls").Activate
Windows("Книга2.xls").Activate
Range("H1").Select
ActiveCell.FormulaR1C1 = "% от общей выручки"
Range("H1:H2").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("A1:H5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B2").Select
ActiveCell.FormulaR1C1 = "1050"
Range("B3").Select
ActiveCell.FormulaR1C1 = "330"
Windows("Книга1").Activate
ActiveWindow.Close
Range("C2").Select
ActiveCell.FormulaR1C1 = "210"
Range("C3").Select
ActiveCell.FormulaR1C1 = "60"
ActiveCell.FormulaR1C1 = "6160"
Range("C2").Select
ActiveCell.FormulaR1C1 = "2100"
Range("C4").Select
ActiveCell.FormulaR1C1 = "1000"
Range("D2").Select
ActiveCell.FormulaR1C1 = "4250"
Range("D3").Select
ActiveCell.FormulaR1C1 = "11220"
Range("D4").Select
ActiveCell.FormulaR1C1 = "6000"
Range("D3").Select
ActiveCell.FormulaR1C1 = "13350"
Range("E2").Select
ActiveCell.FormulaR1C1 = "2250"
Range("E3").Select
ActiveCell.FormulaR1C1 = "11220"
Range("E4").Select
ActiveCell.FormulaR1C1 = "4000"
Range("F2").Select
ActiveCell.FormulaR1C1 = "1950"
Range("F3").Select
ActiveCell.FormulaR1C1 = "1100"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+R[-2]C+R[-3]C"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+R[-2]C+R[-3]C"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+R[-2]C+R[-3]C"
Range("E5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+R[-2]C+R[-3]C"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+R[-2]C+R[-3]C"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]"
Range("G3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]"
Range("G4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]"
Range("G5").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]"
Rows("5:5").Select
Selection.Font.Bold = True
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:="E:\макрос.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Range("H3").Select
ActiveCell.FormulaR1C1 = ""
Range("H1:H2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("H2").Select
ActiveCell.FormulaR1C1 = "=R[1]C=(RC[-1]/R[3]C[-1])*100%"
Range("H2").Select
Selection.NumberFormat = "0.00%"
Range("H2").Select
Selection.NumberFormat = "0.00"
Range("H2").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=(RC[-1]/R[3]C[-1])*100%"
Range("H3").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R[2]C[-1])*100%"
Range("H3").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=(RC[-1]/R[2]C[-1])*100%"
Range("H2").Select
Windows("макрос.xls").Activate
Selection.NumberFormat = "0.00%"
Range("H2").Select
Selection.NumberFormat = "0.00%"
Windows("121.xls").Activate
Windows("макрос.xls").Activate
Selection.NumberFormat = "0%"
Range("H3").Select
Selection.NumberFormat = "0%"
Range("H4").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R[1]C[-1])*100%"
Range("H4").Select
Selection.NumberFormat = "0%"
Range("H2:H4").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("I12").Select
ActiveWorkbook.Save
Windows("121.xls").Activate
ActiveWindow.Close
Range("A1:H1").Select
Selection.Font.Bold = True
ActiveWorkbook.Save
Range("E1").Select
ActiveWorkbook.Save
ActiveWorkbook.Save
Application.Goto Reference:="Макрос1"
ActiveWorkbook.Save
End Sub

Вариант с удалением этих строк приводит к тому, что при исполнении макроса натыкаюсь на сообщение:
"Выделенная область содержит несколько значений данных. Объединение ячеек приведет к потере всех значений кроме левого верхнего". Далее натыкается на строку .MergeCells = True