Вы можете использовать worksheetFunction
объект для написания формул, если вы хотите, чтобы формула была скрыта:
Dim exFun As Object
Set exFun = Application.WorksheetFunction
Range("AM5") = exFun.Index(Range("K5:K" & lastRow), exFun.Match(Range("AK9"), Range("AK5:AK" & lastRow), 0)