Erro em tempo de execução 9

[thcferreira]

Olá pessoal,

Eu não tenho muito conhecimento em VBA, estamos com um problema em uma macro.
A macro foi feita por outro desenvolvedor que já não temos mais contato com ele, ela serve para abrir um documento excel ler as várias abas que tem nele e juntar essas informações em apenas uma aba.
Está retornando o erro: ERRO EM TEMPO DE EXECUÇÃO 9.

O código é esse:
 

Public Sub Consolida_QTD()

Dim lin01, lin02, lin03, plan_inic, plan_fim As Integer

lin01 = 2
lin02 = 2
lin03 = 2
plan_inic = 2

'Application.ScreenUpdating = False
'ArqPeriferico = "QDT_GTI_OPRACAO_SUPORTE.xlsx"
'Workbooks.Open (ThisWorkbook.Path & "\QDT_GTI_OPRACAO_SUPORTE.xlsx")
'lin03 = ThisWorkbook.Sheets(Consolidado_QTD).Cells("a:a").Find(What:=Empty).Row'
'LinhaEmBranco = ThisWorkbook.Planilha1.Cells(Row.Count, "a").End(xlUp).Row'
ArqPeriferico = "QDT_GTI_OPRACAO_SUPORTE"
Workbooks.Open (ThisWorkbook.Path & "\" & ArqPeriferico & ".xlsx")

For plan_fim = 1 To Sheets.Count
Next

plan_fim = plan_fim - 1

Do Until (plan_fim - 1) < plan_inic
    Do Until Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 1).Value = Empty
>>>> AQUI OCORRE O ERRO        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 1).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 1).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 2).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 2).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 3).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 3).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 4).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 4).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 5).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 5).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 6).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 6).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 7).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 7).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 8).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 8).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 9).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 9).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 10).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 10).Value
        ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 11).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 11).Value
    lin02 = lin02 + 1
    lin03 = lin03 + 1
    Loop
    lin02 = 2
plan_inic = plan_inic + 1
Loop
Workbooks(ArqPeriferico).Close (False)

[Alyson Ronnan Martins]

Boa noite @thcferreira

Tenta simular se o código consegue selecionar o campo que esta puxando os valores em questão, exemplo:

ThisWorkbook.Sheets("Consolidado_QTD").select

...

Workbooks(ArqPeriferico).Sheets(plan_inic).select

Se você abrir o visualbasic e executar o comando CTRL + G vai abrir a "Verificação Imediata"

 

Caso ele dê erro ao selecionar a planilha ( o nome da planilha deve estar diferênte, justificando o erro 9) ou a aba.