Modifying an existing macro to work with two columns instead of one.

[jamiemarie]

Good Morning Experts,
I have the following macro that takes a long column of data and at row 47 cuts and pastes into the next column looping until there is no data left. It also keeps the original columns header and puts it in the first cell of every new column made. I thought I would be able to easily modify this, but I'm just not getting it. I now have a sheet that has two columns that I need to stop at row 47 and continue in the next two columns with the headers. Below is the macro and an example of what I have, and what result I want. Thanks in advance if anyone can help. Original macro credit goes to Tom Urtis of this board (I was able to modify to add the headers).

Sub Split_Column()
' Keeps Header, ends column where print page stops

Application.ScreenUpdating = False
Dim LastRow&, NextRow&, NextColumn&
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
NextRow = 47
NextColumn = 2
Do
Range(Cells(NextRow, 1), Cells(NextRow + 46, 1)).Cut Cells(1, NextColumn)
NextRow = NextRow + 46
NextColumn = NextColumn + 1
Loop Until NextRow > LastRow
Application.ScreenUpdating = True

Range("B1").Select
    Selection.Cut
    Range(Selection, Selection.End(xlDown)).Select
    Range("A47").Select
    ActiveSheet.Paste
    Range("A1").Select
    Selection.Copy
    Range("B1:S1").Select
    ActiveSheet.Paste
End Sub

What I have:

MS CS Kit Inventory 7-23.xlsx
	A	B
1	CS Number	QTY
2	CS-00118225	88
3	CS-00137583	539
4	CS-00202049	71
5	CS-00196730	67
6	CS-00201857	86
7	CS-00201792	140
8	CS-00198366	19
9	CS-00196784	101
10	CS-00211372	37
11	CS-00196700	67
12	CS-0023074	7
13	CS-0023078	38
14	CS-0020249	62
15	CS-0023080	7
16	CS-00201847	40
17	CS-00201879	43
18	CS-0021851	13
19	CS-00202132	10
20	CS-00202133	10
21	CS-00109544	6
22	CS-00109263	30
23	CS-0053724	26
24	CS-00109339	8
25	CS-00109262	23
26	CS-00109435	1
27	CS-00198433	1
28	CS-00109260	16
29	CS-00109261	27
30	CS-00109259	48
31	CS-00199013	1
32	CS-035011	6
33	CS-053747	20
34	CS-00117384	30
35	CS-00259228	1
36	CS-00256047	1
37	CS-00259400	1
38	CS-00259393	2
39	CS-00254052	1
40	CS-00249074	1
41	CS-00249898	1
42	CS-00248424	1
43	CS-00259048	1
44	CS-00259115	1
45	CS-00259507	1
46	CS-00253113	1
47	CS-00259418	1
48	CS-00199315	15
49	CS-00136551	9
50	CS-00137584	24
51	CS-00136444	3
52	CS-00148036	128
53	CS-00198368	14
54	CS-00198887	2
55	CS-00198402	5
56	CS-00198434	18
57	CS-00137598	8
58	CS-00137467	9
59	CS-00198371	21
60	CS-00198911	2
61	CS-00136146	1
62	CS-00198374	3
63	CS-00198462	76
64	CS-00137562	63
65	CS-00198413	35
66	CS-00137603	21
67	CS-00136620	11
68	CS-00178018	219
69	CS-00198573	33
70	CS-00230735	5
71	CS-00198604	33
72	CS-00178124	136
73	CS-00198564	11
74	CS-00178060	37
75	CS-00211355	1
76	CS-00177970	1
77	CS-00198580	15
78	CS-00178122	174
79	CS-00177941	124
80	CS-00212770	1
81	CS-00206963	4
82	CS-00206605	203
83	CS-00201791	35
84	CS-00137850	29
85	CS-00199305	115
86	CS-00201870	123
87	CS-00207667	157
88	CS-00231173	385
89	CS-00206650	3
90	CS-00206561	3
91	CS-00206085	5
92	CS-00205813	6
93	CS-00206889	5
94	CS-00201844	3
95	CS-00206190	7
96	CS-00205927	5
97	CS-00207098	5
98	CS-00206665	8
99	CS-00207315	5
100	CS-00205864	8
101	CS-00205957	11
102	CS-00207690	5
103	CS-00207351	6
104	CS-00137478	32
105	CS-00198410	41
106	CS-00136251	3
107	CS-00136582	3
108	CS-00137101	3
109	CS-00136646	3
110	CS-00137166	3
111	CS-00136133	2
112	CS-00136380	6
113	CS-00136088	2
114	CS-00201884	44
115	CS-00201881	68
116	CS-00206376	5
117	CS-00205965	59
118	CS-00206732	4
119	CS-00206662	9
120	CS-00206743	3
121	CS-00205975	2
122	CS-00207637	2
123	CS-00205886	1
124	CS-00136631	3
125	CS-00137353	6
126	CS-00135990	6
127	CS-00211828	2
128	CS-00213079	4
129	CS-00214420	1
130	CS-00214254	1
131	CS-00211271	3
132	CS-00211948	3
133	CS-00211401	1
134	CS-00211422	1
135	CS-00211408	5
136	CS-00211749	1
137	CS-00211314	1
138	CS-00211607	1
139	CS-00211564	2
140	CS-00224472	1
141	CS-00224069	1
142	CS-00212432	1
143	CS-00213129	1
144	CS-00211295	1
145	CS-00224013	1
146	CS-00211323	5
147	CS-00211455	1
148	CS-00211597	2
149	CS-00211409	1
150	CS-00211392	1
151	CS-00211340	2
152	CS-00211423	1
153	CS-00211862	2
154	CS-00211321	1
155	CS-00211412	1
156	CS-00211588	2
157	CS-00211756	1
158	CS-00211374	3
159	CS-00211587	1
160	CS-00211370	1
161	CS-00213892	2
162	CS-00211428	4
163	CS-00213609	1
164	CS-00212078	1
165	CS-00211582	3
166	CS-00213194	3
167	CS-00213501	2
168	CS-00213076	2
169	CS-00214274	1
170	CS-00212841	4
171	CS-00212061	1
172	CS-00213793	1
173	CS-00212112	4
174	CS-00213631	1
175	CS-00212549	1
176	CS-00211861	2
177	CS-00212860	1
178	CS-00212366	1
179	CS-00211789	1
180	CS-00212600	1
181	CS-00211902	2
182	CS-00201843	1
183	CS-00212929	1
184	CS-00213122	4
185	CS-00212072	1
186	CS-00214106	1
187	CS-00212988	1
Sheet2

What result I would like:

MS CS Kit Inventory 7-23.xlsx
	A	B	C	D	E	F	G	H
1	CS Number	QTY	CS Number	QTY	CS Number	QTY	CS Number	QTY
2	CS-00118225	88	CS-00259418	1	CS-00205813	6	CS-00211314	1
3	CS-00137583	539	CS-00199315	15	CS-00206889	5	CS-00211607	1
4	CS-00202049	71	CS-00136551	9	CS-00201844	3	CS-00211564	2
5	CS-00196730	67	CS-00137584	24	CS-00206190	7	CS-00224472	1
6	CS-00201857	86	CS-00136444	3	CS-00205927	5	CS-00224069	1
7	CS-00201792	140	CS-00148036	128	CS-00207098	5	CS-00212432	1
8	CS-00198366	19	CS-00198368	14	CS-00206665	8	CS-00213129	1
9	CS-00196784	101	CS-00198887	2	CS-00207315	5	CS-00211295	1
10	CS-00211372	37	CS-00198402	5	CS-00205864	8	CS-00224013	1
11	CS-00196700	67	CS-00198434	18	CS-00205957	11	CS-00211323	5
12	CS-0023074	7	CS-00137598	8	CS-00207690	5	CS-00211455	1
13	CS-0023078	38	CS-00137467	9	CS-00207351	6	CS-00211597	2
14	CS-0020249	62	CS-00198371	21	CS-00137478	32	CS-00211409	1
15	CS-0023080	7	CS-00198911	2	CS-00198410	41	CS-00211392	1
16	CS-00201847	40	CS-00136146	1	CS-00136251	3	CS-00211340	2
17	CS-00201879	43	CS-00198374	3	CS-00136582	3	CS-00211423	1
18	CS-0021851	13	CS-00198462	76	CS-00137101	3	CS-00211862	2
19	CS-00202132	10	CS-00137562	63	CS-00136646	3	CS-00211321	1
20	CS-00202133	10	CS-00198413	35	CS-00137166	3	CS-00211412	1
21	CS-00109544	6	CS-00137603	21	CS-00136133	2	CS-00211588	2
22	CS-00109263	30	CS-00136620	11	CS-00136380	6	CS-00211756	1
23	CS-0053724	26	CS-00178018	219	CS-00136088	2	CS-00211374	3
24	CS-00109339	8	CS-00198573	33	CS-00201884	44	CS-00211587	1
25	CS-00109262	23	CS-00230735	5	CS-00201881	68	CS-00211370	1
26	CS-00109435	1	CS-00198604	33	CS-00206376	5	CS-00213892	2
27	CS-00198433	1	CS-00178124	136	CS-00205965	59	CS-00211428	4
28	CS-00109260	16	CS-00198564	11	CS-00206732	4	CS-00213609	1
29	CS-00109261	27	CS-00178060	37	CS-00206662	9	CS-00212078	1
30	CS-00109259	48	CS-00211355	1	CS-00206743	3	CS-00211582	3
31	CS-00199013	1	CS-00177970	1	CS-00205975	2	CS-00213194	3
32	CS-035011	6	CS-00198580	15	CS-00207637	2	CS-00213501	2
33	CS-053747	20	CS-00178122	174	CS-00205886	1	CS-00213076	2
34	CS-00117384	30	CS-00177941	124	CS-00136631	3	CS-00214274	1
35	CS-00259228	1	CS-00212770	1	CS-00137353	6	CS-00212841	4
36	CS-00256047	1	CS-00206963	4	CS-00135990	6	CS-00212061	1
37	CS-00259400	1	CS-00206605	203	CS-00211828	2	CS-00213793	1
38	CS-00259393	2	CS-00201791	35	CS-00213079	4	CS-00212112	4
39	CS-00254052	1	CS-00137850	29	CS-00214420	1	CS-00213631	1
40	CS-00249074	1	CS-00199305	115	CS-00214254	1	CS-00212549	1
41	CS-00249898	1	CS-00201870	123	CS-00211271	3	CS-00211861	2
42	CS-00248424	1	CS-00207667	157	CS-00211948	3	CS-00212860	1
43	CS-00259048	1	CS-00231173	385	CS-00211401	1	CS-00212366	1
44	CS-00259115	1	CS-00206650	3	CS-00211422	1	CS-00211789	1
45	CS-00259507	1	CS-00206561	3	CS-00211408	5	CS-00212600	1
46	CS-00253113	1	CS-00206085	5	CS-00211749	1	CS-00211902	2
47
48	CS Number	QTY
49	CS-00201843	1
50	CS-00212929	1
51	CS-00213122	4
52	CS-00212072	1
53	CS-00214106	1
54	CS-00212988	1
Sheet2

 

[Fluff]

How about

Sub jamiemarie()
   Dim i As Long, j As Long
   
   j = 3
   For i = 48 To Range("A" & Rows.Count).End(xlUp).Row Step 46
      Cells(i, 1).Resize(46, 2).Copy Cells(2, j)
      j = j + 2
   Next i
   Range("A1:B1").Copy Range("C1").Resize(, j - 3)
   Rows("48:" & Rows.Count).ClearContents
End Sub

 

[jamiemarie]

Perfect Fluff. Thanks so much!

 

[Fluff]

You're welcome & thanks for the feedback.