I use R1C1 notation when putting formulas in cells via VBA. Try

With ActiveCell.Offset(0,7)
    .FormulaR1C1 = "=VLOOKUP(" & .Parent.Range("C7").Address(false, true, xlR1C1, False, .Cells) & ", R1C3:R99C5, 3, False)"
End With