Here is my code, I'm separating text and putting it into columns, I just want this to loop until there is no more text.
Selection.TextToColumns Destination:=Cells(ActiveCell.Row, 2), DataType:= _
xlFixedWidth, FieldInfo:=Array(Array(0, 3), Array(15, 2), Array(37, 2)), _
TrailingMinusNumbers:=True
Cells(ActiveCell.Row, 4).Select
Selection.TextToColumns Destination:=Cells(ActiveCell.Row, 4), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
TrailingMinusNumbers:=True
ActiveCell.Offset(1, -2).Select