Breaking a long column to print on one sheet

[Pathwalker]

I have two columns of data that I must update and sort alphabetically, then
break the columns to print on one sheet instead of three pages. Is there a
way to set this up to print without cutting and pasting to fit on one page?

 

[Gord Dibben]

Your subject saya "a long column" but your description says "two columns".

Which is correct and if two columns how do you want them sorted?

Each column independently sorted or?

Here is example code to place 2 columns of 200 rows into 8 columns of 50
rows for printing

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
Cells(iSource + 150, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "G")
iSource = iSource + 200
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP