I have a document which I want to format for excel. I am converting text to columns. I want it to do one group, go down 3 rows then convert the next 3. I want it to do this all the way to the end of my data. I know it can be accomplished easily, but I can't do it. I am attaching the code and would appreciate any and all assistance.

Sub converttexttocolums()
'
' converttexttocolums Macro
' Macro recorded 12/05/2003 by Michael B. Dean
'
' Keyboard Shortcut: Ctrl+h
'
ActiveCell.Range("A1:A3").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(19, 1), Array(26, 1), Array(39, 1), Array(48, 1), _
Array(71, 1), Array(78, 1), Array(91, 1), Array(104, 1), Array(117, 1), Array(136, 1), _
Array(149, 1), Array(157, 1), Array(168, 1))
End Sub