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!