Buscar valores y reemplazar en una hoja diferente

Hola!!
Quiero realizar una macro donde debo buscar ciertos valores en una hoja y que me lo reemplace por el valor de la celda de al lado, he intetado realizar esto con el comando "buscarv" pero no he podido, incluso grabé el macro y lo modifiqué pero tampoco ha dado resultado :'(, espero que por favor me pudieran ayudar con esto.

Lo que quiero hacer es lo siguiente, tengo mis dos hojas cada una con la siguiente configuración:



HOJA1____________________________HOJA2

_____A__B__C____D______E_______A________B

1____#_#__#___Cod1___Cod2.____Cod2'____Cod2''
2______________101_____1_______101_____103
3______________103_____2_______103_____112
4______________105_____3_______121_____120
5______________112_____4_______112_____101
6______________113_____5_______113_____105
7______________120_____6_______101_____103
8______________121_____7_______121_____112

Quiero que me de como resultado en la Hoja2 lo siguiente:

____HOJA2
_____A________B
1___Cod2'____Cod2''
2_____1________2
3_____2________4
4_____7________6
5_____4________1
6_____5________3
7_____1________2
8_____7________4

Lós códigos de las macros que he intentado hacer son:

Sub Macro1()
Sheets("Hoja2").Select
'Range("E2").Formula = "=VLookup(" & Range("D2") & ",A2:B8,2,FALSE)"
ActiveCell.FormulaR1C1 = "=VLookup(D2:D8,A2:B8,2,FALSE)"
End Sub

Sub Prueba22()
Sheets("Hoja2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],Hoja1!R4C4:R2025C5,2,FALSE)"
'ActiveCell.FormulaR1C1 = "=VLOOKUP(A[-8],Hoja1!R4C4:R2025C5,2,FALSE)"
Range("I3").Select
End Sub

Les agradezco la ayuda que me pudieran brindar.