Q1:
varRepHome = WorksheetFunction.Lookup(varRepName, _
    Range("CF599:CF637"), Range("CG599:CG637") )