Macro to replace text in column and transfer

Hi, I have the following issue I need help with:

In Column A, If a cell is ="Investor", Replace the cell with "Holder"
In that same row, go to column D (replace that specific cell with "% of CSO")
Next copy that cell and the 20 cells below it in that column, and copy and paste into column C beginning in the same row the first cell of the cells that was copied began in.

I have included a workbook so its easier to understand with before and after sheets.