Dim lr As Integer   
lr = Range("A1").CurrentRegion.Rows.Count

Range("N2").Select  
Range("N2").Formula = "=INDEX(SMSv2!$A$2:$L$" & lr & ",MATCH(SMSv1!C2,SMSv2!$A$2:$A$" & lr & ",0),4)"