aşağıdaki kod işinize yarayabilir

Sub xBulDegis()

Set SyfHdf = ThisWorkbook.Worksheets("sayfa2")

With SyfHdf

    HdfSonStr = .Cells(.Rows.Count, "A").End(xlUp).Row

    Set RngHdf = .Range("A1:A" & HdfSonStr)

End With



Set SyfKyk = ThisWorkbook.Worksheets("sayfa1")

With SyfKyk

    KykSonStr = .Cells(.Rows.Count, "A").End(xlUp).Row

    DzKynk = .Range("A1:B" & KykSonStr).Value2

End With



For x = 1 To UBound(DzKynk)

    RngHdf.Replace DzKynk(x, 1), DzKynk(x, 2)

Next

End Sub