title: How to loop 'Text To Column' code using Excel VBA?
body: <p>I'm trying to figure out how to loop Text to Column codes.</p>
  
  <p>Hoping to get it to loop until the last data or maybe empty row/cells.</p>
  
  <p>I may have more than 60 list of materials though.</p>
  
  <pre class="lang-vb prettyprint-override"><code>'Material 1
  Range("A2").Select
  Selection.TextToColumns Destination:=Range("B2"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(16, 1), Array(58, 1), Array(65, 1)), _
    TrailingMinusNumbers:=True
  Range("A3").Select
  Selection.TextToColumns Destination:=Range("F2"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(25, 1), Array(37, 1), Array(40, 1), _
  Array(43, 1), Array(54, 1), Array(64, 1), Array(73, 1)), TrailingMinusNumbers:=True
  Range("A4").Select
  Selection.TextToColumns Destination:=Range("O2"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 9), Array(26, 1), Array(63, 1)), TrailingMinusNumbers _
    :=True
  
  'Material 2
  Range("A5").Select
  Selection.TextToColumns Destination:=Range("B5"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(16, 1), Array(58, 1), Array(65, 1)), _
    TrailingMinusNumbers:=True
  Range("A6").Select
  Selection.TextToColumns Destination:=Range("F5"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(25, 1), Array(37, 1), Array(40, 1), _
    Array(43, 1), Array(54, 1), Array(64, 1), Array(73, 1)), TrailingMinusNumbers:=True
  Range("A7").Select
  Selection.TextToColumns Destination:=Range("O5"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 9), Array(26, 1), Array(63, 1)), TrailingMinusNumbers _
    :=True
  
  'Material 3
  Range("A8").Select
  Selection.TextToColumns Destination:=Range("B8"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(16, 1), Array(58, 1), Array(65, 1)), _
    TrailingMinusNumbers:=True
  Range("A9").Select
  Selection.TextToColumns Destination:=Range("F8"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(25, 1), Array(37, 1), Array(40, 1), _
    Array(43, 1), Array(54, 1), Array(64, 1), Array(73, 1)), TrailingMinusNumbers:=True
  Range("A10").Select
  Selection.TextToColumns Destination:=Range("O8"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 9), Array(26, 1), Array(63, 1)), TrailingMinusNumbers _
    :=True 
  </code></pre>