VBA for copying data from multiple ranges until blank into a list

[bogeys2birdies]

Hello, I am trying to copy values from Columns R, W, X and Z from the Template (red pic) into columns A, B, C, D. I need a VBA to go through these columns until there is a blank row and then paste it into A,B,C as so it creates a nice list going down. I will need this code to continue multiple times through out my sheet (up to 50 people) and continue to copy and paste into the list. Thank you for your help in advance. I need it!

 

[Kerryx]

Could just use power query

Book1
	P	Q	R	S	T	U	V	W	X	Y	Z	AA
3	Course	SKU	Name	Dex	Mat	Club Typ	Loft	Brand	Model	Club Name	Cost	Condition
4	Temp to follow	1010	name1	dex1	Mat1	Driver	10	Call	Mod1	ClubNm1	100	New
5	Temp to follow	1011	name2	dex2	Mat2	Wedge	30	Tay	Mod2	ClubNm2	200	New
6	Temp to follow	1012	name3	dex3	Mat3	Iron	25	Ping	Mod3	ClubNm3	150	New
7	Temp to follow	1013	name4	dex4	Mat4	Putter	56	Odd	Mod4	ClubNm4	456	New
8	Temp to follow	1014	name5	dex5	Mat5	Wedge	35	Call	Mod5	ClubNm5	234	New
9	Temp to follow	1015	name6	dex6	Mat6	Iron	20	Tay	Mod6	ClubNm6	160	New
10	Temp to follow	1016	name7	dex7	Mat7	Wedge	32	Tay	Mod7	ClubNm7	877	New
11	Temp to follow	1017	name8	dex8	Mat8	Iron	13	Ping	Mod8	ClubNm8	324	New
12
13	Temp to follow	1019	name10	dex10	Mat10	Wedge	15	Tay	Mod10	ClubNm10	456	New
14	Temp to follow	1020	name11	dex11	Mat11	Driver	20	Ping	Mod11	ClubNm11	134	New
15	Temp to follow	1021	name12	dex12	Mat12	Wedge	28	Odd	Mod12	ClubNm12	142	New
16	Temp to follow	1022	name13	dex13	Mat13	Iron	13	Call	Mod13	ClubNm13	155	New
17	Temp to follow	1023	name14	dex14	Mat14	Putter	11	Tay	Mod14	ClubNm14	546	New
Sheet1

Book1
	A	B	C	D
1	Name	Brand	Model	Cost
2	name1	Call	Mod1	100
3	name2	Tay	Mod2	200
4	name3	Ping	Mod3	150
5	name4	Odd	Mod4	456
6	name5	Call	Mod5	234
7	name6	Tay	Mod6	160
8	name7	Tay	Mod7	877
9	name8	Ping	Mod8	324
10	name10	Tay	Mod10	456
11	name11	Ping	Mod11	134
12	name12	Odd	Mod12	142
13	name13	Call	Mod13	155
14	name14	Tay	Mod14	546
Table1

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Course", type text}, {"SKU", Int64.Type}, {"Name", type text}, {"Dex", type text}, {"Mat", type text}, {"Club Typ", type text}, {"Loft", Int64.Type}, {"Brand", type text}, {"Model", type text}, {"Club Name", type text}, {"Cost", Int64.Type}, {"Condition", type text}}),
    #"Filtered Rows" = Table.SelectRows(#"Changed Type", each ([Course] = "Temp to follow")),
    #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Course", "SKU", "Dex", "Mat", "Club Typ", "Loft", "Club Name", "Condition"})
in
    #"Removed Columns"