Extraer datos que no se repitan y poner en otra hoja

hola, Jorge !

tienes razon, yo he invertido en el codigo las relaciones entre las hojas 1 y 2 (mis disculpas)

Sub Lista_Faltantes()
Application.ScreenUpdating = False
Worksheets("hoja3").Cells.Clear
' en la siguiente linea se cambia de "hoja1" a "hoja2" '
With Worksheets("hoja2")
With .Range("a1").CurrentRegion
Worksheets("hoja3").Range(.Resize(1).Address) = .Resize(1).Value
' la siguiente linea se cambia en la formula de hoja2 a hoja1 (a la inversa del cambio arriba) '
.Offset(1, .Columns.Count + 1).Resize(1, 1).Formula = "=countif(hoja1!a:a,a2)=0"
.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Offset(, .Columns.Count + 1).Resize(2, 1), _
CopyToRange:=Worksheets("hoja3").Range("a1").CurrentRegion
.Offset(1, .Columns.Count + 1).Resize(1, 1).ClearContents
End With
Debug.Print .UsedRange.Address
End With
End Sub

saludos,
hector.

__ OP __

Hector he realizado lo que me indicas, pero lo que pasan son unicamente los encabezados.
La hoja limpia y pone los encabezados perfectamente pero despues de alla­ no hace mas nada.
Sera que estoy obviando modificar algo, la idea como te dije es poder
obtener en la Hoja3 las personas que no estan en la hoja1 segun la hoja2.

Hoja1 Hoja2 Hoja3
101110111 101110111 303330333
202220222 202220222 404440444
303330333 505550555
404440444
505550555