Wrapping column of data into multiple columns

[gir42]

I watched a Mr. Excel video showing how to use a Macro to take data in excel spreadsheet and cause it to populate into multiple columns for the purpose of printing full pages of data. I tried to modify the code to work for:
single column of about 600 words
using no header or column heading ( start in first row with data)
Want a full page which in my case would be 5 columns of 25 rows.

the macro worked for the first column (column 4) , the second column (column 5) but on the third set of 25 rows it populated at the end of column 4 instead of starting at row 1 in column 6. Can someone please help me with the code so I can get 5 columns of 25 words per page? My code is attached as a png. I applogize in advance if I am posting incorrectly. First time and not a power user!
thanks
gene

 

[Herakles]

Can you show us what your data looks like?

 

[gir42]

test-Macro-Wordle.xlsm
	A	B	C	D	E
1	aback			aback	amber
2	abase			abase	ample
3	abate			abate	angry
4	abbey			abbey	antic
5	above			above	aorta
6	abyss			abyss	aphid
7	acute			acute	apple
8	admit			admit	apply
9	adobe			adobe	apron
10	adopt			adopt	aptly
11	adore			adore	arbor
12	agape			agape	argue
13	agate			agate	aroma
14	agree			agree	aside
15	ahead			ahead	askew
16	album			album	asset
17	alien			alien	atoll
18	alike			alike	atone
19	allow			allow	audit
20	aloft			aloft	avail
21	alone			alone	avert
22	aloud			aloud	awake
23	alpha			alpha	awful
24	altar			altar	axiom
25	alter			alter	badge
26	amber			badly	bluff
27	ample			baker	blurb
28	angry			banal	blurt
29	antic			basic	blush
30	aorta			baton	booby
31	aphid			batty	boost
32	apple			bayou	booze
33	apply			beady	boozy
34	apron			beefy	bough
35	aptly			begin	braid
Sheet1

 

[gir42]

Hello,
just wondering if I uploading sufficient data for you to see the problem.

 

[DanteAmor]

Hello @gir42. Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

Please try the following macro.

But before, create a sheet called "Output", in this sheet will be the result.
In the sheet "h1" put your data, rename in the macro "h1" and "output" by the names you want.

Sub MultipleColumns()
  Dim sh1 As Worksheet, sh2 As Worksheet
  Dim i As Long, j As Long, k As Long, n As Long
  
  Set sh1 = Sheets("h1")
  Set sh2 = Sheets("output")
  sh2.ResetAllPageBreaks
  
  n = 25    'rows per page
  k = 1
  j = 1
  For i = 1 To sh1.Range("A" & Rows.Count).End(3).Row Step n
    If j = 6 Then
      k = k + n
      j = 1
      sh2.HPageBreaks.Add Before:=sh2.Cells(k, j)
    End If
    sh2.Cells(k, j).Resize(n).Value = sh1.Range("A" & i).Resize(n).Value
    j = j + 1
  Next
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
--------------

 

[gir42]

Can you show us what your data looks like?

Hello @gir42. Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

Please try the following macro.

But before, create a sheet called "Output", in this sheet will be the result.
In the sheet "h1" put your data, rename in the macro "h1" and "output" by the names you want.

Sub MultipleColumns()
  Dim sh1 As Worksheet, sh2 As Worksheet
  Dim i As Long, j As Long, k As Long, n As Long
 
  Set sh1 = Sheets("h1")
  Set sh2 = Sheets("output")
  sh2.ResetAllPageBreaks
 
  n = 25    'rows per page
  k = 1
  j = 1
  For i = 1 To sh1.Range("A" & Rows.Count).End(3).Row Step n
    If j = 6 Then
      k = k + n
      j = 1
      sh2.HPageBreaks.Add Before:=sh2.Cells(k, j)
    End If
    sh2.Cells(k, j).Resize(n).Value = sh1.Range("A" & i).Resize(n).Value
    j = j + 1
  Next
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
--------------

Dante,
It worked perfectly! Thank you so much for taking time to help me!