Cleaning up a Text To Column Macro Recording Replacing "Select"

[Shiseiji]

Hi all, again, TIA!
I'm trying to figure out how to clean up the "select" in a simple single column (A) text to column. When I try to revise "select" to a range, I get a "Can only convert one column." error.
2nd question. Why does the array start with "0" and not "1"?

Recording

Range("A2").End(xlDown).Select
    Selection.TextToColumns  Destination:=Range("A2"),   DataType:=xlFixedWidth,  FieldInfo:=Array(Array(0, 2),  Array(9, 9))

This won't work

Dim LastCol         As Integer
Dim LastRow         As Long
Dim Rng             As Range

Set Rng = Range("$A2", Cells(LastRow))
With Rng
              .TextToColumns Destination:=Range("A2"), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(9, 9))
End With 'Rng

Ron

 

[johnnyL]

I would think you could replace the recorded macro:

Range("A2").End(xlDown).Select
    Selection.TextToColumns  Destination:=Range("A2"),   DataType:=xlFixedWidth,  FieldInfo:=Array(Array(0, 2),  Array(9, 9))

to:

Range("A2").End(xlDown).TextToColumns Destination:=Range("A2"), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(9, 9))

 

[Alex Blakenburg]

You would usually do your "Set Rng" line more like this:

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range("$A2:$A" & LastRow)

 

[Shiseiji]

Alex, thanks. 99% of what I can thumb finger in VBA I've learned in this forum. I can stumble my way through some code on my own, but if I found something here that worked, I've just kept using it. Many things, like a loop for example, I understand the concept, but have no idea about the why or when. So I just stumble along, in an environment where the one eyed man is king. Copy/paste and adapt actually since ~ 1999 but I had to re-register, forget why now.

Every bit of help is deeply appreciated!

Ron