Sub CCC()
 Dim Lastrow As Long 'Used for the formulas
   Lastrow = Range("D" & Rows.Count).End(xlUp).Row

Range("B2").formula = "=IFERROR(VLOOKUP(F2,'C:UsersaNTHONY[cLASS.xlsx]cLASS'!$B$2:$F$1048576,2,FALSE)"

Range("B2").AutoFill Destination:=Range("B2:B" & Lastrow)

End Sub

Range("B2").formula = "=IFERROR(VLOOKUP(F2,'C:UsersaNTHONY[cLASS.xlsx]cLASS'!$B$2:$F$1048576,2,FALSE)"

Range("B2").formula = "=IFERROR(VLOOKUK(F2,'C:UsersaNTHONY[cLASS.xlsx]cLASS'!$B$2:$F$1048576,2,FALSE)"