I am looking for help on replacing the cell values with its column data (1 cell replace with multiple values in the column)

Ex: Find 70002734 from Input_Sub_2 Input data in To_Replace To replace workbook (All Sheets) and replace the entire column values 120004587 and 120004677 in separate cells (one below the other). If there are 5 parts in the column, all 5 should be added in place of the part.

70002734 Should be replaced as below without overwriting the subsequent cells 120004587 120004677

This should be repeated to all the values of the row 4 in Input_Sub