reemplazar columnas desde hojas distintas

hola, (...) ?

Tengo dos hojas Distintas :
Hoja1: codigo,nombres,direccion
Hoja2: codigo, nombres, direccion,telf,nucodi
En la Hoja1 debo agregar la columna nucodi; siempre y cuando coincidan la columna codigo de las Hojas1 y Hoja2

[p.e.]

Sub NuCodi_si_Codigo()
Dim Celda As Range
With Worksheets("hoja2")
For Each Celda In Worksheets("hoja1") _
.Range(Range("a2"), Range("a65536").End(xlUp))
If Application.CountIf(.Columns("a"), Celda) Then _
Celda.Offset(, 3) = .Columns("a").Find(Celda).Offset(, 4)
Next
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.