VBA Copy & paste

[ChetanPuri]

Hi Excel Coding Gurus,

Is there a VBA which can help me to copy and past the data from this column to another worksheet name APLOAD on Column K 6 onwards, Q6, R6 and S6 onwards, any help would be much appreciated

V4 Telstra Download 2024-11-21.xlsm
	T	U	V
1	Tex Split
2	R2402	104	PR
3	D100	130	MT
4	D100	130	MT
5	D100	160	MT
6	D100	160	MT
7	D100	140	MT
8	C241	0800	PR
9	C241	0800	PR
10	C242	0800	PR
11	C241	0800	PR
12	C241	0800	PR
13	C241	0800	PR
14	C241	0800	PR
15	40719240
16	10119240
17	11229392
18	10119240
19	40719240
20	40739710
21	DN04B	0800	PR
22	NC01	52	PR
23	50868416
24	11229392
25	40939240
26	50868416
27	50868416
28	50908416
29	11229392
30	21609240
31	40719240
32	40119240
33	10119240
34	40119240
35	40119240
36	10119240
37	40119240
38	DM25	0100	MT
39	10119240
40	10119240
41	21609240
42	DM25	0100	MT
43	10119240
44	40719240
45	DM25	0100	MT
46	21609240
47	DN03D	0800	PR
48	DN20	5001	OH
49	10559710
50	40939710
51	40719710
52	40719710
53	50909710
54	50869710
55	50869710
56	50909710
57	50909710
58	50869710
59	50869710
60	50909710
61	50909710
62	11229390
63	50869710
64	50909710
65	40739710
66	M231	1040	PR
67	D212	1075	PR
68	D212	1075	PR
69	D212	1075	PR
70	D212	1075	PR
71	C241	0700	PR
72	C241	0700	PR
73	D212	1075	PR
74	10119720
75	10119720
76	D212	1075	PR
77	10119720
78	10119720
79	C241	0700	PR
80	21609720
81	21609720
82	C241	0700	PR
83	C242	0700	PR
84	21609720
85	C242	0700	PR
86	C241	0700	PR
87	C241	0700	PR
88	60559720
89	D212	1075	PR
90	11229391
91	60559720
92	D212	1075	PR
93	C241	0700	PR
94	50909720
95	50909720
96	50909720
97	50909720
98	60559720
99	50869720
100	50869720
101	50869720
102	50909720
103	10559720
104	10559720
105	10559720
106	21609720
107	C242	0700	PR
108	C241	0700	PR
109	50869720
110	60559720
111	50919720
112	10119720
113	DN03D	0700	PR
114	50869720
115	10119720
116	40119720
117	C242	0700	PR
118	10119720
119	C241	0700	PR
120	C242	0700	PR
121	DN04B	0700	PR
122	60559720
123	D212	1075	PR
124	11229391
125	D212	1075	PR
126	D212	1075	PR
127	DN04B	0700	PR
128	D212	1075	PR
129	C242	0700	PR
130	C241	0700	PR
131	11229391
132	50909720
133	50869720
134	50869720
135	50909720
136	11229391
137	D212	1075	PR
138	D212	1075	PR
139	D212	1075	PR
140	D212	1075	PR
141	C241	0700	PR
142	D212	1075	PR
143	50909720
144	D212	1075	PR
145	C241	0700	PR
146	D212	1075	PR
147	D212	1075	PR
148	C241	0700	PR
149	D212	1075	PR
150	50869720
151	50919720
152	C242	0700	PR
153	C241	0700	PR
154	11229391
155	D212	1075	PR
156	D212	1075	PR
157	40119720
158	40709720
159	40709720
160	C241	0700	PR
161	NC01	52	PR
162	D212	1075	PR
163	D212	1075	PR
164	40119720
165	D212	1075	PR
166	D212	1075	PR
167	D212	1075	PR
168	C241	0700	PR
169	C241	0700	PR
170	D212	1075	PR
171	D212	1075	PR
172	50909720
173	50869720
174	C241	0700	PR
175	C242	0700	PR
176	D212	1075	PR
177	10559720
178	40739710
179	50909710
180	50869710
181	40739710
182	40719241
183	40719241
184	40719241
185	40719242
186	40719242
187	40719242
188	40719242
189	40719242
190	40719242
191	40719242
192	40719242
193	40719242
194	40719242
195	40719242
Detail Report

 

[Kaper]

I'm not sure if I understood you well, so try it on a copy of original file:

sub test()
dim lr as long
lr = cells(rows.count,"T").end(xlup).row
Range("T2:T" & lr).copy Sheets("APLOAD").Range("K6").resize(lr-1,1)
Range("U2:U" & lr).copy Sheets("APLOAD").Range("Q6").resize(lr-1,1)
Range("V2:V" & lr).copy Sheets("APLOAD").Range("R6").resize(lr-1,1)
end sub