セルに数式を追加しようとしています。マクロはセル範囲の前後に引用符を追加しているため、セルは#nameエラーを返します。
これはマクロのコードです
Cells(1, 4).FormulaR1C1 = "=VLOOKUP(RC[-2],Contracts!A7:D30,3,FALSE)"
これは、マクロの実行後にコードがExcelに返すものです。
=VLOOKUP(B4,Contracts!'A7':'D30',3,FALSE)
セルA7とD30の周りの引用符を削除すると、#nameエラーが消え、数式が機能することに注意してください。