buscar máximos en una macro mediante "cells.find" excel 2007

[mrocf]

Supondré que tus datos se encuentran en las columnas [A:C], siendo la fila "1" la de encabezados.
Además voy a suponer que debes pegar tus datos en la hoja "Hoja2" a partir de la celda A1.

En tal caso podrías intentar lo siguiente:

Código vb:

Sub Macro816()
'-----------------------------
' By Cacho Rodríguez
'-----------------------------
ActiveSheet.AutoFilterMode = False
With Range([a2], [c65536].End(xlUp))
  Union([a1:c1], .Cells).AutoFilter Field:=3, Criteria1:="5", Operator:=xlTop10Items
  .SpecialCells(xlCellTypeVisible).Copy Worksheets("Hoja2").[A1]
End With
ActiveSheet.AutoFilterMode = False
End Sub
 

Como verás: una sola selección y un solo "pegado".

Comenta tus impresiones, por favor.
Saludos, Cacho.