Sub Button2_Click()
  Dim lr As Long
     lr = 2.Cells(Rows.Count, "B").End(xlUp).Row
        With 2.Range("C2:C" & lr)
          .FormulaR1C1 = "=VLOOKUP(RC[-1],1!R2C2:R1762C3,2,0)"
           .Value = .Value
        End With
End Sub


