Importar dados de outra planilha com critérios e colar também com critérios

[Erikson]

Boa noite prezados,
Por favor preciso de uma ajuda, quem puder...ficarei grato.
Para não me delongar no questionamento anexei a planilha e lá tem mais ou menos a ideia que preciso, mas de uma forma geral, trata-se de importar dados de outra planilha, respeitando critérios, e colando na planilha mestre observando também critérios, para colar no lugar certo os dados desejáveis. Ou seja, haveria seleção de dados e seleção de onde colar esses dados.

[Julio Mangilli]

Verificar se isso te ajuda amigo, só configurar a seu favor.
Essa em questão cola em sequencial, qualquer coisa crie uma macro para limpar ou é só mexer nessa mesmo, mas acredito para seu caso formulas ajudariam já.
Mas tenta com essa.

Sub Transferir()


Application.ScreenUpdating = False

Dim W As Worksheet
Dim W1 As Worksheet
Dim Matriz(5) As Integer



Set W = Sheets("Filtro") ' Nome das abas
Set W1 = Sheets("Hist?ricosEmpresas") ' Nome das abas


'Matriz armazena o n?mero das colunas da Planilha Filtro
Matriz(0) = 10
Matriz(1) = 3
Matriz(2) = 4
Matriz(3) = 7
Matriz(4) = 8

Col1 = 1

For Col = 0 To 4

Ultlin = W.Cells(Rows.Count, Matriz(Col)).End(xlUp).Row

For Lin = 4 To Ultlin

UltLinW1 = W1.Cells(Rows.Count, Col1).End(xlUp).Row

W1.Cells(UltLinW1 + 1, Col1) = W.Cells(Lin, Matriz(Col))

Next Lin

Col1 = Col1 + 1

Next Col


Application.ScreenUpdating = True


End Sub