If cell is contained within a cell in a range then macro

I want a macro that looks in A4:17 in each cell and if the cell is contained anywhere in the cells in the range A18:A44 then replace the cell in the the range a4:a17 with the cell in the range a18:a44 that contained the match.

So if A7 was "J. Jones" and cell A40 was "James Jones" then the macro would set cell A7 to "James Jones"