Actualizar datos de campo con otra tabla

tengo dos Excel, el primero [i](TABLA 1)[/i] con los campos:
TABLA 1:
Teléfono \ Puerta \ Alias \ Ubicación

Y el segundo [i](TABLA 2)[/i] con los campos:
TABLA 2:
Teléfono \ Apodo \ Nombre \ Razón \ Ubicación

Me gustaría poder comparar los teléfonos de ambos Excel y que si coinciden, en la TABLA 2 actualice el campo 'Apodo' con la información que aparece en el campo 'Alias' de la TABLA 1.

Es decir, que si en ambas tablas está el mismo número, el campo 'apodo' adquiera la información del campo 'alias' de la otra tabla.

Por el momento tengo éste código pero no cumple lo que yo necesito:

Sub Buscar_LBV()
Dim Celda1 As Range, Celda2 As Range, Uf1&, Uf2&, n&'DECLARAMOS LAS VARIABLES

Uf1 = Hoja1.Range("A" & Rows.Count).End(xlUp).Row'OBTENGO LA ULTIMA FILA DE LA HOJA 1
Uf2 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row'OBTENGO LA ULTIMA FILA DE LA HOJA 2
n = 2'INICIO MI CONTADOR A 2
For Each Celda1 In Hoja1.Range("A2:A" & Uf1)'DECLARO EL RANGO A RECORRER DE LA HOJA 1
Set Celda2 = Hoja2.Range("A2:A" & Uf2).Find(Celda1)'BUSCO EL DATO EN LA HOJA 2
If Not Celda2 Is Nothing Then ' SI LO ENCUENTRA QUE PONGA LO QUE NECESITO EN OTRA HOJA, LA HOJA3
Hoja3.Cells(n, 1) = Celda1.Value ' EL VALOR DE LA CELDA QUE RRECORRO EL RANGO
Hoja3.Cells(n, 2) = Celda1.Offset(0, 1).Value' EL VALOR DE LA COLUMNA A LA DERECHA
Hoja3.Cells(n, 3) = Celda1.Offset(0, 2). Value' el de la segunda columna a la derecha
n = n + 1' aumento mi contador para que la proxima vez lo ponga en la siguiente fila de la hoja 3
End If
Next Celda1
End Sub

Si alguien me ayudara lo agradecería mucho.