Hi Minhaj,
Here is the code to find an address and use it in a formula.
Sub BuildFormula()
With Sheets("Mech")
Set rFound = .Columns(4).Find(What:="aaa", After:=.Cells(1, 4), _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext...