Wanting to automatically copy and paste range to next row in same collumn based on cell reference in next collumn

I have a column with the numbers 1-200 decending in each cell. In the next column I wish to put the letter R within multiple cells in the same column.

I would like every time I put the letter R in a cell to copy all numbers down over beside it and then paste in the next line below. i.e I could have each number cell 1,2,3,4,4,5,6,7,8 if I put the R next to the next column next to the number four.

Any script that would do this automatically would be much appreciated.

Please find attached example that works using formulas, however I want to be able to do the same by using a macro.

Thanks.