Excel. Comparar 2 columnas de diferentes hojas y copiar lineas completas de coincidentes

Aquí va. Solo debes definir la variable 'dato' según corresponda, en mi caso la col A presenta valores numéricos.

Se recorre la hoja menor, en tu caso Hoja2.

Sub completaDuplicados()
'x Elsamatilde
'Rutina que compara 2 tablas . Se copian datos faltantes en la tabla menor
Dim dato As Integer
' trabajo sobre la tabla de menor tamaño
Sheets("Hoja2").Select
ActiveSheet.Range("A3").Select
'recorro la tabla1 hasta encontrar 1 celda vacía que me indica el fin de rango
While ActiveCell <> ""
dato = ActiveCell.Value
'busco código en 2º tabla, col A
Set busco = Sheets("Hoja1").Range("A3:A" & Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si lo encontró copia la fila encontrada
If Not busco Is Nothing Then
 filx = ActiveCell.Row
 busco.EntireRow.Copy
 ActiveSheet.Paste
 ActiveSheet.Cells(filx, 1).Select
 Application.CutCopyMode = False
End If
ActiveCell.Offset(1, 0).Select
'repito el bucle
Wend
End Sub