Hola Cacho, disculpa la confusión.
Mira, este es el código tal y como lo estoy implementando:
Código:
Windows(archivoDatos).Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveSheet.AutoFilterMode = False
With Range([b6], [d65536].End(xlUp))
Union([b5:d5], .Cells).AutoFilter Field:=3, Criteria1:="5", Operator:=xlTop10Items
.SpecialCells(xlCellTypeVisible).Copy
End With
Windows(archivoReporte).Activate
Sheets("Top 5").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Donde: “archivoDatos” es el archivo desde el cual estoy leyendo la información y “archivoReporte” es el archivo donde necesito pegar la información sacada del anterior.
¡Mil gracias!