Moving Data from Multiple Cells to another Worksheet in a Column

[envious22]

Hello, I am trying to redesign a workbook I have been using for a few months. I completed it with help from another individuals thread here but I am unable to twist the VBA to work in my favor.

I am essentially taking data from around 37 cells on a cheat sheet and my hope is to use a key press macro to copy the info to the second sheet or "tracker." Then have it clear the cells and prepare the cheat sheet for the next interval. The original macro I used populates each value to a column in a single row:

Sub MoveCoilDataTOP()    Dim SrcSht       As Worksheet
    Dim DestSht      As Worksheet
    Dim lngDestLrow  As Long
    
If MsgBox("Please confirm that you are moving and resetting intentionally?", vbYesNo + vbQuestion, "Move Data?") = vbNo Then Exit Sub


    'Define Worksheets
    Set SrcSht = Sheets("4.0 Coil")
    Set DestSht = Sheets("Coil Tracker")
    
    'Define Destination Sheet Lrow
    lngDestLrow = DestSht.Cells(Columns.Count, "A").End(xlUp).Row


    'Move Data
    DestSht.Cells(lngDestLrow + 1, "A") = SrcSht.Range("B5")
    DestSht.Cells(lngDestLrow + 1, "B") = SrcSht.Range("F5")
    DestSht.Cells(lngDestLrow + 1, "C") = SrcSht.Range("F6")
    DestSht.Cells(lngDestLrow + 1, "D") = SrcSht.Range("F2")
    DestSht.Cells(lngDestLrow + 1, "E") = SrcSht.Range("F3")
    DestSht.Cells(lngDestLrow + 1, "F") = SrcSht.Range("B24")
    DestSht.Cells(lngDestLrow + 1, "G") = SrcSht.Range("D7")
    DestSht.Cells(lngDestLrow + 1, "H") = SrcSht.Range("D6")
    DestSht.Cells(lngDestLrow + 1, "I") = SrcSht.Range("D5")
    DestSht.Cells(lngDestLrow + 1, "J") = SrcSht.Range("D4")
    DestSht.Cells(lngDestLrow + 1, "K") = SrcSht.Range("D3")
    DestSht.Cells(lngDestLrow + 1, "L") = SrcSht.Range("D2")
    DestSht.Cells(lngDestLrow + 1, "M") = SrcSht.Range("B13")
    DestSht.Cells(lngDestLrow + 1, "N") = SrcSht.Range("B14")
    DestSht.Cells(lngDestLrow + 1, "O") = SrcSht.Range("B15")
    DestSht.Cells(lngDestLrow + 1, "P") = SrcSht.Range("B16")
    DestSht.Cells(lngDestLrow + 1, "Q") = SrcSht.Range("B17")
    DestSht.Cells(lngDestLrow + 1, "R") = SrcSht.Range("B18")
    DestSht.Cells(lngDestLrow + 1, "S") = SrcSht.Range("B3")
    DestSht.Cells(lngDestLrow + 1, "T") = SrcSht.Range("B6")
    DestSht.Cells(lngDestLrow + 1, "U") = SrcSht.Range("B7")
    DestSht.Cells(lngDestLrow + 1, "V") = SrcSht.Range("B29")
    DestSht.Cells(lngDestLrow + 1, "W") = SrcSht.Range("B9")
    DestSht.Cells(lngDestLrow + 1, "X") = SrcSht.Range("B20")
    DestSht.Cells(lngDestLrow + 1, "Y") = SrcSht.Range("F7")

What I am hoping to do is essentially the same thing only I want to populate rows down a single column, and then have the next interval move to the next column. Instead of using rows.

I have tried to modify this macro, but I think I need to start from scratch. Any help is greatly appreciated.

 

[envious22]

Bumping to clarify as I was frustrated when I posted this originally.

What I am doing is I have a cheat sheet for my job that I use to record important info. At the end of each interval I press my button and my current macro takes the important cells I want to track and moves them to another Tracker Worksheet. The current macro moves the relevant cells to the tracker, and populates the info along a single row and the columns each have a header for what should be there.

I want to do essentially the same thing, except I want the rows to designate a data set and I want the macro to populate my data to the next available column, instead of row.
I don't necessarily need someone to rewrite it for me, but I want to know if I can manipulate this macro or if I need to change things entirely and try a new method all together.

Any help is greatly appreciated, thank you!

 

[envious22]

https://drive.google.com/open?id=1m9iGuRxASE0ZGkceWxiDkZiccuW2oRx8

Here is a link the template I am trying to use. The columns layout is what I am trying to export the data too, the tracker is the working layout that populates along the row instead of the column. Again, any help would be greatly appreciated.