El criterio, es la celda activa de otra hoja

Buen dia a todos:

Tengo un pequeño problema con una macro, la macro consiste en ir buscando registros en la hoja2, y en la hoja1, deberá ir filtrando, y asi vez va a generar un archivo de excel para guardarlo.

Ahora bien para que esto funcione, debe ir buscando los registros 1x1 de forma vertical y había abajo, en la columna A de la hoja 2, solo que no se como poner que el criterio del filtro, sea la celda activa (la activa el bucle) de la hoja 2, les dejo la macro a ver si se les ocurre algo, no me permite poner

Sub Filtrar()
Dim TempFilePath As String
Dim TempFileName As String
TempFilePath = Environ$("temp") & "\"
TempFileName = "LAYOUT " & "No.. "

criterio = sheets("hoja2").activecell

'en la line ade arriba es donde tengo el problema, ¿como le digo a excel, que el valor de el criterio del filtro, es la celda que se tenga seleccionada en la hoja2, ya que no es fijo por que el bucle ira bajando 1x1 para irlas revisando todas y haciendo los filtro en la hoja1

'¿que puedo hacer?

Sheets("hoja2").Select
Range("a1").Select

'aquí tengo que empieza el bucle
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Sheets("hoja1").Select
Rows("1:1").Select
Selection.AutoFilter Field:=3, Criteria1:=criterio
Sheets("hoja1").Select
Cells.Select
Selection.Copy

Workbooks.Add
ActiveSheet.Paste

fecha = Sheets("hoja1").Range("a2") & " "
ActiveWorkbook.SaveAs Filename:=TempFilePath & fecha & TempFileName & ".xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Workbooks("Lay out .xls").Activate
Sheets("hoja2").Select
Loop

End Sub