Futásidejű hiba '9': Az index kívül esik a tartományon

Szia! Új vagyok a Macros, a VBA és a Kutools területén.

Egy makrót futtatok, hogy kivonjam a szöveget, majd a számokat külön cellákban. A Kutools jól működik, amikor futtatom, de amikor ugyanazt a folyamatot követem a makró létrehozásához, hibaüzenetet kapok:

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

Úgy tűnik, itt történik a hibakeresési hiba.

Hozzáadtam a Kutoolsforexcelt az Eszközök/Hivatkozáshoz


Sub ConvetYardsToMiles()
'
ConvetYardsToMiles makró
'

'
Oszlopok("I:I").Válassz
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = Hamis
Selection.Copy
Selection.Insert Shift:=xlToRight
Oszlopok ("J:J"). Válassza ki
Windows("KutoolsHelper.xlam").Visible = igaz
ActiveWindow.Visible = Hamis
Oszlopok ("K:K"). Válassza ki
Windows("KutoolsHelper.xlam").Visible = igaz
ActiveWindow.Visible = Hamis
ActiveWindow.SmallScroll ToRight:=1
Tartomány("L2").Válassza ki
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Tartomány("L2").Válassza ki
Selection.AutoFill Destination:=Tartomány("L2:L832")
Tartomány("L2:L832").Válassza ki
Oszlopok ("L:L"). Válassza ki
Selection.NumberFormat = "0.00 mérföld"
Oszlopok ("L:L"). Válassza ki
Oszlopok("L:L").TeljesOszlop.Automatikus illeszkedés
Kijelölés.Oszlopszélesség = 14.91
Tartomány("L1").Válassza ki
ActiveCell.FormulaR1C1 = "Mert mérföldek"
Tartomány("L2").Válassza ki
ActiveWindow.SmallScroll ToRight:=-1
Oszlopok ("H:K"). Válassza ki
Selection.EntireColumn.Hidden = Igaz
ActiveWindow.SmallScroll ToRight:=-4
Oszlopok ("L:L"). Válassza ki
Kiválasztással
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Tájolás = 0
.AddIndent = Hamis
.IndentLevel = 0
.ShrinkToFit = Hamis
.ReadingOrder = xlContext
.MergeCells = Hamis
Vége
Kiválasztással
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Tájolás = 0
.AddIndent = Hamis
.IndentLevel = 0
.ShrinkToFit = Hamis
.ReadingOrder = xlContext
.MergeCells = Hamis
Vége
Sorok("1:1"). Válassza a lehetőséget
Tartomány("C1"). Aktiválja
Selection.Font.Bold = False
Selection.Font.Bold = Igaz
A Selection.Font funkcióval
.Name = "Arial"
.Áthúzott = Hamis
.Superscript = Hamis
.Subscript = Hamis
.OutlineFont = Hamis
.Shadow = Hamis
.Aláhúzás = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Vége
A Selection.Font funkcióval
.Name = "Arial"
.Méret = 12
.Áthúzott = Hamis
.Superscript = Hamis
.Subscript = Hamis
.OutlineFont = Hamis
.Shadow = Hamis
.Aláhúzás = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Vége
Kiválasztással
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Hamis
.Tájolás = 0
.AddIndent = Hamis
.IndentLevel = 0
.ShrinkToFit = Hamis
.ReadingOrder = xlContext
.MergeCells = Hamis
Vége
End Sub