Boa Tarde,

Criei o código abaixo, mas por ser iniciante em macro acredito que dê para melhorar.

O objetivo é consolidar os dados de diversas planilhas em apenas uma, onde possa gerar uma dashboard.

Sub fff()
Application.ScreenUpdating = False
 Workbooks.Open ("Y:_EMPRESAS1_empresa2_PDE1_Projetos_Ativos1# Pasta de trabalhoIncentivos 20181 TESTE VALORAÇÃOvaloração agro 1.xlsm")
 Worksheets("Dinamica").Select
 ActiveSheet.PivotTables("Tabela Dinâmica1").PivotCache.Refresh
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E4").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a2")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E5").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a3")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E6").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a4")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E7").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a5")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E8").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a6")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E9").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a7")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E10").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a8")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E11").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a9")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E12").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a10")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E13").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a11")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E14").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a12")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("E15").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a13")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B4").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C2")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B5").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C3")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B6").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C4")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B7").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C5")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B8").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C6")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B9").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C7")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B10").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C8")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B11").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C9")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B12").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C10")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B13").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C11")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B14").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C12")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("B15").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C13")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A4").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B2")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A5").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B3")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A6").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B4")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A7").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B5")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A8").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B6")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A9").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B7")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A10").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B8")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A11").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B9")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A12").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B10")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A13").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B11")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A14").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B12")
Workbooks("valoração agro 1.xlsm").Worksheets("Dinamica").Range("A15").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B13")

Savechanges = True
If Workbooks("valoração agro 1.xlsm").Saved = False Then
        Workbooks("valoração agro 1.xlsm").Save
    End If
    

 Workbooks("valoração agro 1.xlsm").Close

Workbooks.Open ("Y:_EMPRESAS1_empresa2_PDE1_Projetos_Ativos1# Pasta de trabalhoIncentivos 20181 TESTE VALORAÇÃOvaloração agro 1.xlsm")
 Worksheets("Dinamica").Select
 ActiveSheet.PivotTables("Tabela Dinâmica1").PivotCache.Refresh
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E4").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a14")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E5").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a15")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E6").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a16")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E7").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a17")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E8").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a18")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E9").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a19")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E10").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a20")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E11").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a21")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E12").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a22")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E13").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a23")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E14").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a24")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("E15").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("a25")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B4").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C14")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B5").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C15")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B6").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C16")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B7").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C17")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B8").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C18")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B9").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C19")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B10").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C20")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B11").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C21")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B12").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C22")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B13").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C23")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B14").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C24")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("B15").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("C25")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A4").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B14")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A5").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B15")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A6").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B16")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A7").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B17")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A8").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B18")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A9").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B19")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A10").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B20")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A11").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B21")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A12").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B22")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A13").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B23")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A14").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B24")
Workbooks("valoração ENG 1.xlsm").Worksheets("Dinamica").Range("A15").Copy Destination:=Workbooks("Resumo teste.xlsm").Sheets("Planilha1").Range("B25")

Savechanges = True
If Workbooks("valoração agro 1.xlsm").Saved = False Then
        Workbooks("valoração agro 1.xlsm").Save
    End If
    

 Workbooks("valoração agro 1.xlsm").Close


End Sub