Help building button to move data from working cells to record keeping sheet

[CoryJ]

Hey all,

I have a workbook that is used to issue sets of 4 random GPS markers to ATV riders for an annual poker ride. When the riders return with the serial number from each marker they were issued, I need to cross reference with the database to confirm they have matching numbers.

I have a selection sheet to issue sets of 4 random numbers to event participants like a lottery. Each participant has an ID# and I need to keep track of which numbers each ID# was issued. The selection sheet chooses the random numbers and places them in a range of cells. I have tried doing this with a simple macro recording but I have no idea how to get it to store to the next row on my record keeping sheet. Any help would be greatly appreciated.


Summary:

- The selection sheet has 4 cells (C8;C10;C12;C14) that populate with random numbers from a list on another sheet.
- These 4 values need to be stored to the record sheet in cells B2;E2 when the button is clicked.
- When the selection sheet is recalculated with new values, the same range of cells needs to be stored in the next row down on the record sheet in cells B3;E3 when the button is clicked again and so on.

Rider ID#1 was issued Number Set#1 which contains 21,54,75,11.
.
.
.
Rider ID#25 was issued Number Set#32 which contains 4,70,31,63.
etc.

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub CopyData()
   Dim i As Long, j As Long
   j = 3
   For i = 14 To 8 Step -2
      With Sheets("sheet1").Range("B" & Rows.count).End(xlUp).Offset(1)
         .Offset(, j).Value = Sheets("pcode").Range("C" & i).Value
         j = j - 1
      End With
   Next i
End Sub