Ayuda con código

Buenos díasa todos
Necesito completar el código grabado que expongo de acuerdo con los
comentarios añadidos.
Se trata de que en un mismo libro donde existen las hojas que figuran en
el código expuesto, se extraigan de un determinado rango
(paginaxreferencia) en la hoja "Listado definitivo" mediante el autofiltro
las referencias correspondientes a una hoja del catalogo y pegarlas
(trasponiendolas) en la otra hoja "Hojas catálogo definitivo" en la misma
fila de donde se ha extraido el valor para el "criterial" del autofiltro
de la primera hoja inidicada. Tengo Windows XP y Excel 2003. Por si sirve
de algo la base de datos de la hoja "Listado definitivo" comprende las
columnas A (referencia de articulo) y B (página del catálogo) el rango se
llama paginaxreferencia y comprende A2:B15410.
El código:
Sub ponereferenciasporpaginadelcatalogo()
'
' ponereferenciasporpaginadelcatalogo Macro
' Macro grabada el 05/09/2008 por hes040
'
' Acceso directo: CTRL+r
Dim pagina As String
Dim referencias As Range

Sheets("Hojas catálogo definitivo").Select
'Aqui debería empezar un bucle que fuera desde A2 hasta A??? = (última
celda escrita)
referencias = Range("A2").Select ' esta es la primera página
pagina = ActiveCell.Value

Sheets("Listado definitivo").Select
Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1.10" ' el valor de
criterial deberia ser como el valor de pagina
Range("A2:A200").Select
Selection.Copy
Sheets("Hojas catálogo definitivo").Select
Range("B2").Select ' misma fila pero en columna B que el rango de
referencias
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

Sheets("Listado definitivo").Select

Selection.AutoFilter

Sheets("Hojas catálogo definitivo").Select
'final del bucle
End Sub

Saludos

Jose Rafael de Valencia (España)