Match and replace cell from another sheet

Sub Test1()
Application.ScreenUpdating = False
Dim cell As Range, varFind As Variant
With Sheets("Sheet1")
For Each cell In Sheets("Sheet2").Columns(1).SpecialCells(2)
Set varFind = .Columns(2).Find(What:=cell.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not varFind Is Nothing Then cell.Value = .Cells(varFind.Row, 1).Value
Set varFind = Nothing
Next cell
End With
Application.ScreenUpdating = True
End Sub

Sub test()
  Application.ScreenUpdating = False
  Dim cel As Range
  
  For Each cel In Worksheets("Sheet1").Range("B1").CurrentRegion.Columns(2).Cells
    Worksheets("Sheet2").Columns(1).Replace What:=cel.Value, Replacement:=cel.Offset(, -1).Value, _
    LookAt:=xlWhole, SearchOrder:=xlByColumns, MatchCase:=True
  Next cel
End Sub

Sub test()
Dim x As String, y As String
With Sheets("sheet1")
    x = .Range("b1", .Range("b" & Rows.Count).End(xlUp)).Resize(,2).Address
End With
With Sheets("sheet2")
    With .Range("a2", .Range("a" & Rows.Count).End(xlUp)).Offset(,1)
        y = .Offset(,-1).Address
        .Value = Evaluate("if(" & y & "<>"""",vlookup(" & y & ","sheet1!" & x & ",2,false),"""")")
        On Error Resume Next
        .SpecialCells(2,16).ClearContents
    End With
End With
End Sub

        .Value = Evaluate("if(" & y & "<>"""",vlookup(" & y & ",sheet1!" & x & ",2,false),"""")")

why start off with a loop if you don't need one.