Public Sub Breakup2Ncols()
Dim iTotRecs As Long, iCols As Long, iMaxRow As Long, c As Long, iSrcRow As Long, iTargRow As Long
Dim wsSrc As Worksheet, wsTarg As Worksheet
Dim vVal, vRet
Set wsSrc = ActiveSheet
vRet = InputBox("How many rows per page?", "Rows to use", 70)
If vRet = "" Then Exit Sub
If Not IsNumeric(vRet) Then Exit Sub
iMaxRow = Val(vRet)
Range("a1").Select
Selection.End(xlDown).Select
iTotRecs = ActiveCell.Row
Range("a1").Select
'iMaxRow = r \ iCols 'rows/col
iCols = iTotRecs \ iMaxRow
'results sheet
Sheets.Add
Set wsTarg = ActiveSheet
iSrcRow = 1
wsSrc.Activate
While iSrcRow <= iTotRecs
For c = 1 To iCols + 1
'wsTarg.Cells(1, c).Select
iTargRow = 1
While iTargRow <= iMaxRow
vVal = wsSrc.Cells(iSrcRow, 1).Value
wsTarg.Cells(iTargRow, c).Value = vVal
iTargRow = iTargRow + 1
iSrcRow = iSrcRow + 1
Wend
vVal = wsSrc.Cells(iSrcRow, 1).Value
iTargRow = 1
wsTarg.Cells(iTargRow, c + 1).Value = vVal
Next
Wend
wsTarg.Activate
Set wsSrc = Nothing
Set wsTarg = Nothing
MsgBox "Done"
End Sub