Code to loop through a column and change cell value based on list

Hello,

Please find working example in attached file.

My solution is

Private Sub CommandButton1_Click()
'Author: MaczaQ
'Thread: http://www.excelforum.com/excel-programming/792086-code-to-loop-through-a-column-and-change-cell-value-based-on-list.html

Dim r As Integer
r = 2


Do Until Cells(r, "B").Value = ""
  Set f = Sheets("Conversion List").Range("A:A").Find(Cells(r, "B").Value)
  
  If Not f Is Nothing Then
      Cells(r, "B").Value = f.Cells(, 2).Value
  End If
  
  Set f = Nothing
  r = r + 1
Loop
End Sub

Best Regards
MaczaQ