Thread: Parsing data

I am attempting to loop the following by offsetting one row then parsing to the offset row. I don't know how to make "Range("A1") offset for the parsing.


Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(7, 1), Array(12, 1), Array(20, 1), _
Array(26, 1), Array(31, 1), Array(40, 1), Array(50, 1), Array(59, 1), Array(65, 1), Array( _
70, 1), Array(80, 1)), TrailingMinusNumbers:=True
ActiveCell.Offset(1, 0).Activate