Change columns after certain point
 

I have created a sheet called WORK ORDER where all of my product options are
listed. I made it so that if an option was not picked, the cell that
contained that option would be blank. I then wrote a code in VBE that would
delete all blank cells in WORK ORDER. What I would like to have happen now
is have the new condensed list reach a certain point (A63) and the remaining
portion of that list move over to F14 and work its way down to cell F57 if
needed. If the list continues after that point I would need the remainder to
start on J1.

I am having fits with this for some reason, so if anyone has a similar code
or knows how to go about this, it would be greatly appreciated.

Change columns after certain point
 

After you run your code to condense lines then do a count of the lines

With ActiveCell
i = Range(.Offset(0, 0), .End(xlDown)).Rows.Count
End With

calculate how many breaks you need and move the records using a case
structure.

Hope this helps

Maybe I could see the code you are using already?

"Cerberus" wrote:

I have created a sheet called WORK ORDER where all of my product options are
listed. I made it so that if an option was not picked, the cell that
contained that option would be blank. I then wrote a code in VBE that would
delete all blank cells in WORK ORDER. What I would like to have happen now
is have the new condensed list reach a certain point (A63) and the remaining
portion of that list move over to F14 and work its way down to cell F57 if
needed. If the list continues after that point I would need the remainder to
start on J1.

I am having fits with this for some reason, so if anyone has a similar code
or knows how to go about this, it would be greatly appreciated.