VBA to Copy and Paste Several Groups of Cells

Thank you for looking at my problem. I am a begginner. Attached is a scaled down Input page for a large charity golf tournament benefiting wounded veterans. Several other sheets are tied to this Input sheet in a Workbook.

Typically we will sign up 144 players which are equal to 36 foursomes. Once the tournament is sold out, we add several veterans to several foursomes as fifth members. It is usually 8 to 10 veterans, but in this illustration I have used 3. There is a box at the top of the page under the word "Control." This controls how many foursomes and fivesomes are listed. In this case I have changed 144 players to 147 players, which is equal to 33 foursomes and 3 fivesomes. The fivesomes are created at the bottom of the list starting with the 36th group and working upward.

I am trying to write a macro that will easily allow the fifth group members to be added. I have added an additional sheet called "Desired Result" to show what I am trying to do. Basically the macro would copy cells D140:F147 (Row 147 is the last row with data) and paste to D141, then clear the contents in D140:F140; then copy cells D145:F148 (Row 148 is now the last row with data) and paste to D146, then clear the contents in D145:F145. The names of the three "fifth players" can then be filled in.

I am still a beginner, but I have tried to put together a macro to accomplish this. The macro "AddFifthPlayers" does successfully select and copy the first group of cells using the Group # in Column I, but it will not paste them in the first cell below which is D141. I get the message "Run-time error ‘1004’: You can’t paste this here because the Copy area and paste area aren’t the same size. Select just one cell in the paste area or an area that’s the same size, and try pasting again." This does not make sense to me since only one cell (D141) in the paste area is selected. I am probably missing something obvious.

This forum is a huge learning assistant for struggling beginners like me. I have tried for hours to make this work, but cannot figure it out. Thank you again.

Brilliant! Thanks, AlphaFrog. Works perfectly.