Replace macro from list to another sheet

Hi guys, can anyone help me with this problem, I am looking for macro that would replace values in sheet1 with values in list in sheet2(even doesnt have to be different sheets if its easier). Practicaly, i need to replace values (number) in column AD with names from another sheet from column B, that suit numbers from column A. Sheet2 is kind of little database and those ID are unique. In the picture I put another workbook so it could be one sheet by another, for better understanding.
Thanx in advance.

Code:

---

Public Sub ProcessData()
    Dim Lastrow As Long
    Dim i As Long
    Application.ScreenUpdating = False
    With Worksheets("Sheet1")
        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 1 To Lastrow
            With .Cells(i, "AD")
                If .Value2 <> "" Then
                    .Value2 = Application.VLookup(.Value2, Worksheets("Sheet2").Columns("A:B"), 2, False)
                End If
            End With
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

---

Thanx man, works exactly as needed.