VBA macro to add header text, insert & copy-down formula, move column

Here is a simple one, but has me stuck.

Task: make a new header for 2 columns, add some VLOOKUP formulas and paste the columns as values in the same sheet.


Insert new header in J1 - "Alias"
Insert formula in J2 & copy down "=IFERROR(VLOOKUP(H2,'[Common Team Names.xls]Clean List'!$A:$C,3,0), "No Alias")"
Copy Column J, Paste as Values in Column J

Insert new header in K1 - "Workflow Team"
Insert formula in k2 & copy down "=IFERROR(VLOOKUP(H2,'[Common Team Names.xls]Clean List'!$A:$C,2,0), "No Team")"
Copy Column K, Paste as Values in Column H


thanks

Is this solved?

If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit.