Alguem para me ajudar?

Bom dia!!

O que é (T10, T11 E T12), são células?

Att

Célula, no caso seria Coluna: T, Linha: 10

Boa tarde!!

Você não falou para qual coluna da guia principal que vai receber os dados dos arquivos ( TE-001.xlsm, TE-002.xlsm, TE-003.xlsm, etc...).

Sub AleVBA_19956()
    Dim sFolder As String
    Dim sFile As String
    Dim wbD As Workbook, wbS As Workbook
     
    Application.ScreenUpdating = False
    Set wbS = ThisWorkbook
    sFolder = wbS.Path & "" 'Esse arquivo com macro deve ficar no mesmo diretório
     
    sFile = Dir(sFolder)
    Do While sFile <> ""
         
        If sFile <> wbS.Name Then
            Set wbD = Workbooks.Open(sFolder & sFile)
            wbD.Sheets("Plan1").Range("T10:T12").Copy 'Considerando que todas as guias tem o mesmo nome
            wbS.Activate
            Sheets("TE E TI").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            wbD.Close savechanges:=True
        End If
         
        sFile = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

Att

Caro Alexandre,
Muito obrigado,
consegui com esta forma sua adaptar certo aqui e funcionou perfeitamente.

Um serviço de uma planilha com cerca de 150 linha que eu gastava 3hs pra fazer, agora consigo resolver com um click. isso é top. vlw mesmo

Boa tarde!!

Bacana, eu fico feliz em ajudar!!!

Att