Create a vba formula from cells

[camle]

Need a little assistance with a vba formula to get info from cells to create a formula like this

    Range("J1").Formula = "=IF(D1=""Mayberry R.F.D."",""Mayberry RFD""," & _
    "IF(D1=""Diners, Drive-ins and Dives"",""Diners Drive-Ins and Dives"",IF(D1=""Forever "",""Forever (2014)""," & _
    "IF(D1=""Food Factory (CA)"",""Food Factory CA"",IF(D1=""Castle (2009)"",""Castle 2009"",IF(D1=""Guy's Grocery Games"",""Guys Grocery Games"",D1))))))"

     Range("J1").Copy
    Range("J2:J" & LastRow).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

I am constantly adding to the formula.
So, say column A would be what to look for, column B what to change to to.

Thanks

 

[camle]

You're welcome. Thanks for the feedback.

You mixed D2 and D1 in the formaula?
=IFERROR(VLOOKUP(D2,Changes!A:B,2,0),D1)

yes I did, but I got it working
Thanks

 

[camle]

You're welcome. Thanks for the feedback.

You mixed D2 and D1 in the formaula?
=IFERROR(VLOOKUP(D2,Changes!A:B,2,0),D1)

I wound up with:

Range("J1:J" & LastRow).Formula = "=IFERROR(VLOOKUP(D1,Changes!A:B,2,0),D1)"