Գործարկման ժամանակի սխալ '9'. Բաժանորդագրվել տիրույթից դուրս

Բարև, ես նոր եմ Macros-ում, VBA-ում և Kutools-ում:

Ես գործարկում եմ մակրո՝ տեքստ հանելու համար, այնուհետև թվերը առանձին բջիջներում: Kutools-ը լավ է աշխատում, երբ այն գործարկում եմ, սակայն երբ ես հետևում եմ նույն գործընթացին մակրո ստեղծելու համար, ես սխալի հաղորդագրություն եմ ստանում.

Windows («KutoolsHelper.xlam»). Տեսանելի = Ճշմարիտ

Թվում է, թե այստեղ սխալ է տեղի ունենում վրիպազերծման ժամանակ:

Ես ավելացրել եմ Kutoolsforexcel-ը Tools/Reference-ում


Sub ConvetYardsToMiles ()
'
ConvetYardsToMiles մակրո
'

'
Columns ("I:I"): Ընտրեք
Ընտրություն.Պատճեն
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = Կեղծ է
Ընտրություն.Պատճեն
Selection.Insert Shift:=xlToRight
Columns ("J:J"): Ընտրեք
Windows («KutoolsHelper.xlam»). Տեսանելի = Ճշմարիտ
ActiveWindow.Visible = False
Columns("K:K"): Ընտրեք
Windows («KutoolsHelper.xlam»). Տեսանելի = Ճշմարիտ
ActiveWindow.Visible = False
ActiveWindow.SmallScroll To Right:=1
Շրջանակ («L2»): Ընտրեք
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Շրջանակ («L2»): Ընտրեք
Selection.Autofill Destination:=Range("L2:L832")
Տարածք ("L2:L832"): Ընտրեք
Columns ("L:L"): Ընտրեք
Selection.NumberFormat = «0.00 մղոն»
Columns ("L:L"): Ընտրեք
Columns("L:L").EntireColumn.AutoFit
Ընտրություն.ColumnWidth = 14.91
Շրջանակ («L1»): Ընտրեք
ActiveCell.FormulaR1C1 = «Մղոն քշված»
Շրջանակ («L2»): Ընտրեք
ActiveWindow.SmallScroll To Right:=-1
Columns ("H:K"): Ընտրեք
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll To Right:=-4
Columns ("L:L"): Ընտրեք
Ընտրությամբ
.HorizontalAlignment = xlGeneral
. Ուղղահայաց հավասարեցում = xl կենտրոն
.Կողմնորոշում = 0
.AddIndent = Սխալ
.IndentLevel = 0
.ShrinkToFit = Սխալ
.ReadingOrder = xlContext
.MergeCells = Սխալ
Վերջ
Ընտրությամբ
.HorizontalAlignment = xlCenter
. Ուղղահայաց հավասարեցում = xl կենտրոն
.Կողմնորոշում = 0
.AddIndent = Սխալ
.IndentLevel = 0
.ShrinkToFit = Սխալ
.ReadingOrder = xlContext
.MergeCells = Սխալ
Վերջ
Տողեր ("1:1"): Ընտրեք
Range ("C1"): Ակտիվացնել
Selection.Font.Bold = False
Selection.Font.Bold = Ճշմարիտ
Selection.Font-ով
.Անուն = «Արիալ»
.Հարձակում = Սխալ
.Վերագիր = Սխալ
.Բաժանորդագրություն = Սխալ
.OutlineFont = Սխալ
.Shadow = Կեղծ
.Ընդգծել = xlUnderlineStyleՈչ
.TintAndShade = 0
.ThemeFont = xlThemeFontՈչ
Վերջ
Selection.Font-ով
.Անուն = «Արիալ»
.Չափ = 12
.Հարձակում = Սխալ
.Վերագիր = Սխալ
.Բաժանորդագրություն = Սխալ
.OutlineFont = Սխալ
.Shadow = Կեղծ
.Ընդգծել = xlUnderlineStyleՈչ
.TintAndShade = 0
.ThemeFont = xlThemeFontՈչ
Վերջ
Ընտրությամբ
.HorizontalAlignment = xlCenter
. Ուղղահայաց հավասարեցում = xl կենտրոն
.WrapText = Սխալ
.Կողմնորոշում = 0
.AddIndent = Սխալ
.IndentLevel = 0
.ShrinkToFit = Սխալ
.ReadingOrder = xlContext
.MergeCells = Սխալ
Վերջ
Վերջ Sub