Sub Test()
j = 1
While ThisWorkbook.Sheets("Sheet1").Cells(j, 1) <> ""
i = 1
While ThisWorkbook.Sheets("Sheet2").Cells(i, 1) <> ""
If ThisWorkbook.Sheets("Sheet1").Cells(j, 1) <> Replace(ThisWorkbook.Sheets("Sheet1").Cells(j, 1), ThisWorkbook.Sheets("Sheet2").Cells(i, 1), ThisWorkbook.Sheets("Sheet2").Cells(i, 2)) Then
ThisWorkbook.Sheets("Sheet1").Cells(j, 2) = ThisWorkbook.Sheets("Sheet2").Cells(i, 2)
End If
i = i + 1
Wend
j = j + 1
Wend
End Sub