Copy data from vertical cells paste into horizontal cells that will change each time macro run

[KimC33]

I also would like to run a VBA code that will copy the data of cells highlighted in blue and paste them into the respective months in the table below. Each month the code will be different since the month will change. I haven't been able to figure out how to write the code to make it change and move down a row each new month. I wrote the copy/paste part though. Thanks for the help!

Sub UpdateSysAvail2()
    Range("B28:B29").Select
    Range("B45").Select
    Selection.PasteSpecial Paste
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

​

Data Point 1
P1 only	99.72%​
P1 + P2	99.36%​

Data Point History
Month	P1 Only	P1 & P2
January	99.79%	99.78%
February	99.99%	99.82%
March	100.00%	97.90%
April	99.19%	99.08%
May	99.88%	99.48%
June	100.00%	99.87%
July	99.72%	99.36%
August
September
October
November
December

 

[sxhall]

Think this is what you require....

Sub UpdateSysAvail2()

    Range("B28:B29").Copy
    Range("B52").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
    
End Sub

Will see in my example below that I have copied data in cells B28 & B29 and then pasted it to the bottom of the list. I've run it twice so each time it moves it to the next row down, August and then September for me.

The code goes to row 52, then goes up to the row last used (42 initially) and then offsets (moves down) a single row to then paste the data.