Alguém poderia ajudar-me!
Acredito que o problema esteja na quantidade de linhas! Mas estou rodando em 12 planilhas que no total daria 480.000 linhas, e o Excel tem mais de 1 milhão!
Código: Selecionar todos
Sub Copiar_Para_Bdados()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Dim LastRow As Integer
Dim wb As Workbook
Dim sh As Worksheet
'Copia e cola todas as planilhas como valores
Set wb = ThisWorkbook
Sheets("Bdados").Select
'Fim do código para copiar as planihas como valores
'Definir a planilha que consolidará os dados
Set wsDestino = Sheets("Bdados")
'Loop através das planilhas da pasta de trabalho
For Each wsOrigem In ThisWorkbook.Worksheets
'If Left(wsOrigem.Name, 1) = "C" Then
'Definir a última célula com valores da coluna A de wsDestino
LastRow = wsDestino.Range("A1000000").End(xlUp).Row
'Copiar os dados de wsOrigem para wsDestino
wsOrigem.[A3:T40000].Copy wsDestino.Cells(LastRow + 2, 1)
'End If
Next wsOrigem
End Sub