Eu tenho dois lençóis. Um possui os dados completos e o outro é baseado no filtro aplicado na primeira folha.

Nome da folha de dados:Data
Nome da folha filtrada:Hoky

Estou apenas pegando uma pequena porção de dados para simplificar. MEU objetivo é copiar os dados da Folha de Dados, com base no filtro. Eu tenho uma macro que de alguma forma funciona, mas é codificada e é uma macro gravada.

Meus problemas são:

O número de linhas é diferente sempre. (esforço manual)As colunas não estão em ordem.

Sub TESTTHIS()
'
' TESTTHIS Macro
'
'FILTER
Range("F2").Select
Selection.AutoFilter
ActiveSheet.Range("$B$2:$F$12").AutoFilter Field:=5, Criteria1:="hockey"

'Data Selection and Copy
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hockey").Select
Range("E3").Select
ActiveSheet.Paste

Sheets("Data").Select
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hockey").Select
Range("D3").Select
ActiveSheet.Paste

Sheets("Data").Select
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hockey").Select
Range("C3").Select
ActiveSheet.Paste

End Sub