Copiar primeros 30 registros filtrados

Que tal grupo, una pregunta, tengo una tabla con varios registros, por medio
de codigó VB estoy filtrando sobre uno de los campos, lo que deseo hacer es
copiar solo 30 registros resultado del filtro, Cómo lo puedo hacer?, utilicé
el siguiente código pero no furula (funciona)... no selecciona ni siquiera el
rango filtrado..espero me puedan ayudar.

Range("A3").Select
With ActiveSheet
.Cells(30, "A").End(xlUp).Offset(30, 0).Select
End With
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy

Mis titulos de campo siempre inician en la celda A3.