Помилка виконання "9": нижній індекс поза діапазоном

Привіт, я новачок у Macros, VBA та Kutools.

Я запускаю макрос, щоб витягти текст, а потім числа в окремі комірки. Kutools працює добре, коли я його запускаю, однак, коли я дотримуюся того самого процесу для створення макросу, я отримую повідомлення про помилку:

Windows("KutoolsHelper.xlam").Visible = True

Схоже, тут виникає помилка під час налагодження.

Я додав Kutoolsforexcel в Tools/Reference


Sub ConvetYardsToMiles()
'
Макрос ConvetYardsToMiles
'

'
Стовпці("Я:Я").Вибрати
Вибір. Копіювати
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = Неправда
Вибір. Копіювати
Selection.Insert Shift:=xlToRight
Стовпці ("J:J"). Виберіть
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = False
Стовпці ("K:K"). Виберіть
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = False
ActiveWindow.SmallScroll ToRight:=1
Діапазон ("L2"). Виберіть
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Діапазон ("L2"). Виберіть
Selection.AutoFill Destination:=Range("L2:L832")
Діапазон ("L2:L832"). Виберіть
Стовпці ("L:L"). Виберіть
Selection.NumberFormat = "0.00 миль"
Стовпці ("L:L"). Виберіть
Columns("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Діапазон ("L1"). Виберіть
ActiveCell.FormulaR1C1 = "Проїхані милі"
Діапазон ("L2"). Виберіть
ActiveWindow.SmallScroll ToRight:=-1
Стовпці ("H:K"). Виберіть
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-4
Стовпці ("L:L"). Виберіть
З виділенням
.HorizontalAlignment = xlЗагальне
.VerticalAlignment = xlCenter
.Орієнтація = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = Неправда
.ReadingOrder = xlContext
.MergeCells = Неправда
Кінець з
З виділенням
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Орієнтація = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = Неправда
.ReadingOrder = xlContext
.MergeCells = Неправда
Кінець з
Рядки("1:1").Виберіть
Діапазон ("C1"). Активувати
Selection.Font.Bold = False
Selection.Font.Bold = True
З Selection.Font
.Name = "Arial"
.Закреслення = хибно
.Надрядковий = хибний
.Індекс = False
.OutlineFont = False
.Тінь = Неправда
.Підкреслення = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Кінець з
З Selection.Font
.Name = "Arial"
.Розмір = 12
.Закреслення = хибно
.Надрядковий = хибний
.Індекс = False
.OutlineFont = False
.Тінь = Неправда
.Підкреслення = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Кінець з
З виділенням
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Неправда
.Орієнтація = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = Неправда
.ReadingOrder = xlContext
.MergeCells = Неправда
Кінець з
End Sub