Comparando dos Columnas

Algunos datos tendrás que ajustar ya que primero mencionás que de la hoja2 se compara la col B y luego mencionás la col A. Asumí la B, por eso en la instrucción
If Cells(fila, 1) = ActiveSheet.Next.Cells(fila, 2).Value Then aparece (fila,2) si fuese A sería (fila,1)
Tampoco me quedó claro si tiene que copiar las 2 filas (de la hoja1 y de la hoja2). Asumí que sí. Si no es así tenés que dejar las líneas como te agregué en los comentarios.
La comparación y la copia comienzan en la fila 2.
Desde el Editor (Alt+F11) insertá un módulo y en él copiá lo siguiente:
Sub comparando()
copiada = 2
Sheets("Hoja1").Range("A2").Select
final = Range("A2").End(xlDown).Row
For fila = 2 To final
If Cells(fila, 1) = ActiveSheet.Next.Cells(fila, 2).Value Then
ActiveCell.EntireRow.Copy Destination:=Sheets("Hoja3").Cells(copiada, 1)
ActiveSheet.Next.Cells(fila, 1).EntireRow.Copy Destination:=Sheets("Hoja3").Cells(copiada + 1, 1) 'quitar si no se copia lo de la hoja2
copiada = copiada + 2 'más 1 si no se copia lo de la hoja 2
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub
Desde la hoja, menú Herramientas, Macros, Macro, buscá la que se llame "comparando" y ejecutar.
Pruébala y cualquier duda me volvés a consultar.
Hasta pronto
Elsa
PD)