VBA Code to Replace Cell Value when Address found by Index/Match

Can someone give me code to have this [=CELL("Address",INDEX($AM$100:$AM$874,MATCH($S$29,$AA$100:$AA$874,0))) ] to replace the value in the address it located. Works great, just need to replace the value in the located cell address.
Thanks, rubert

Maybe you can do:

Please Login or Register  to view this content.

where 1 is the value you want to replace it with

This worked like a charm from what must be a professional....I thank U and bid you a wonderful Christmas season