Автоматизировать текст в столбцы с помощью параметра «Фиксированная ширина»?

Question

Я пытаюсь автоматизировать функцию преобразования текста в столбцы в Excel. Я хочу использовать настройки по умолчанию, которые Excel выбирает в параметре «Фиксированная ширина», потому что он всегда выбирает правильные разрывы с моими конкретными наборами данных. Когда я записываю макрос для двух разных листов, которые необходимо проанализировать, и выбираю настройку фиксированной ширины по умолчанию, макросы выглядят совершенно иначе с точки зрения аргументов Array. Я полагаю, что должен быть какой-то способ просто использовать выбор по умолчанию в Excel для аргументов массива, но не могу понять это! Заранее спасибо!

Macro1:

Sub Macro1()
'
' -Macro1 Macro

Range("B10:B46").Select
Selection.TextToColumns Destination:=Range("B10"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(47, 1), Array(65, 1), Array(71, 1), 
Array(90, 1), _
    Array(95, 1), Array(113, 1), Array(126, 1)), TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=-12
End Sub

Macro2:

Sub Macro2()
' Macro2 Macro

Range("B8:B46").Select
Selection.TextToColumns Destination:=Range("B8"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(53, 1), Array(78, 1), Array(101, 1), 
Array(119, 1) _
    , Array(134, 1)), TrailingMinusNumbers:=True
 End Sub