Converting 1 set of columns to 2 sets or more: Example Attached

Hey that's cool, but I need the formatting copied over (Critical part), it needs to be on a specified worksheet (in this case sheet2, but it might be called something else and start at a specified location B2 or c3, etc)...also when I typed in 3, I would have expected Rob and GE under J&K (set 2). Shouldn't the previous column be full before it moves to the next?

Thanks so much, a cool approach!

One other problem, I just noticed that when you enter 2, 3, or 4 it is sorting to the right and not down...can that be fixed?

Thank you so much , but it doesn't seem to work. When you choose two columns it fails to sort in order and only gets worse as there are more columns...with regards to the formatting, I can solve that issue through conditional formatting.

Please help me get the sorting correct!

Duplicate Post...Sorry!

Lemice, I have a question...it seems to work as described and I can use conditional formatting, however when I go to three columns, I would expect Mike and Google to be under the second set and when I go to 6 columns the third set has two names/companies, but the fourth has three names/companies...is that fixable?

As an option- a code
I have copied the data you have in sheet1 up to a couple of hundreds rows to test the code. There is a button on sheet1 and the result is in sheet3.

the macro is cool and I see what you did in the code so i can modify it, but for the novice - can you modify it to ask (when you press "Run") how many rows I want in the column and autosize based on that parameter?

Lem,

I get what you are saying and your explanation makes sense, but 6,6,4 would be better if I wanted three columns because I am trying the maximize the data per column. The macro seems to accomplish that, but now I am wondering if it can be done using an array...

The helpful thing with regards to the macro would be able for the user to define the number of rows per column without having to modify the code (as described above).

Amended code

Sub columnstocol()
 Dim i As Long, ms As Worksheet, LR&, RN&
 
  Application.ScreenUpdating = 0
  
  Set ms = Sheets("Sheet3")
  NR = 2
  With Sheets("Sheet1")
  RN = InputBox("how many rows do you want in the column")
    LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    For i = 3 To LR Step RN
         .Cells(2, 2).Resize(, 2).Copy ms.Cells(3, NR)
         .Cells(i, 2).Resize(RN, 2).Copy ms.Cells(4, NR).Resize(RN, 2)
          NR = NR + 3
    Next
    
    Application.CutCopyMode = 0
    Application.ScreenUpdating = True
  End With
     ms.Columns.AutoFit
     ms.Activate
    Set ms = Nothing
End Sub

Okay, for the macro one more thing, I tried applying to three columns of data, and it generally works, but on the 2nd set of data it overwrite the header. Here is the code, less the the modification above, can someone fix it?

Sub columnstocol()
Dim i As Long, ms As Worksheet, LR&

Application.ScreenUpdating = 0

Set ms = Sheets("FRL Summary Sheet")
NR = 2
With Sheets("FRL Input")

LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row

For i = 2 To LR Step 75
.Cells(2, 2).Resize(, 2).Copy ms.Cells(3, NR)
.Cells(i, 3).Resize(75, 3).Copy ms.Cells(3, NR).Resize(75, 4)
NR = NR + 5
Next

Application.CutCopyMode = 0
Application.ScreenUpdating = True
End With
ms.Columns.AutoFit
ms.Activate
Set ms = Nothing
End Sub

Corp,
Please use code tags with your code.
It is difficult to comment as I could not see your data, but try change the line

NR=2 to NR=3

Sorry, I tried to do that but it didn't seem to work, I will attach the file.

Try this one

Sub columnstocol()
 Dim i As Long, ms As Worksheet, LR&
 
  Application.ScreenUpdating = 0
  
  Set ms = Sheets("FRL Summary Sheet")
  NR = 2
  With Sheets("FRL Input")
  
    LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    For i = 3 To LR Step 75
         .Cells(2, 3).Resize(, 3).Copy ms.Cells(3, NR)
         .Cells(i, 3).Resize(75, 3).Copy ms.Cells(4, NR).Resize(75, 3)
          NR = NR + 4
    Next
    
    Application.CutCopyMode = 0
    Application.ScreenUpdating = True
  End With
     ms.Columns.AutoFit
     ms.Activate
    Set ms = Nothing
End Sub