1:
.Range(.Cells(Start_Row, Col_Var(6))).Address().Formula = "=NaFinder(""employees"", " & .Range(.Cells(Start_Row, Col_Var(6))).Address(0, 0)) & ")"